Question

дано N (N больше 0) Натуральных чисел. написать программу, определяющую наибольшее среди них. Число N вводится перед всеми остальными числами

Answer 1

 var n,i,max:integer; 
     a:array[1..10000] of integer;
begin
randomize;
 writeln('Введите кол.натур. чисел: ');
 read(n); 
 for i:=1 to n do     begin   
a[i]:= random(n*n);
    write(a[i],' ');
      //read(a[i]); //Если нужен ввод с клавиатуры
    end;
    writeln;
    max:=a[1];
  for i:=1 to n do     begin     
if a[i]>= max then       
  begin 
         max:=a[i];
  end;
end;

  writeln('Наибольшее число:', max);

end.