Помогите написать программу в PascalABC.NET
Задание: из 1000 чисел надо выбрать большее.

2

Ответы и объяснения

2013-04-14T12:02:11+00:00

random.org

 выбираешь максимальн. и минимальн число и все

2013-04-14T12:04:50+00:00

const n = 1000;
var
  a: array[1..n] of integer;
  i, max: integer;
begin
  for i := 1 to n do begin
    a[i] := random(765) + random(237);
    if(a[i] > max) then max := a[i];
  end;
  writeln('Макс. число: ', max);
end.