Question

Ввести пять чисел и найти наибольшее из них.4 15 9 56 4

Answer 1

var a:array[1..5,1..5]of integer;

i,n,max:integer; 

begin

readln(n);

for i:=1 to n do

readln(a[i]);

max:=a[1];

for i:=1 to n do 

if a[i]>max then max:=a[i];

writeln(max);

end.