Найти наибольший элемент числовой последовательности. В паскале с помощью массива даю...

Question

Найти наибольший элемент числовой последовательности. В паскале с помощью массива даю 20б.HEELP!

Comments

Щас будет

---

Массив вводится через клаву или рандом?

Answer 1

Var a:array[1..1000] of integer; 

b,c,i:integer; 

begin

 readln(b); // - количество елементов массива, не больше 1000

 for i:=1 to b do

  read(a[i]);

 c:=0;

 for i:=1 to b do

  if a[i]>c

   then

    c:=a[i];

 writeln(c);

 readln

end.