Как найти наибольшее из двадцати чисел? Решение в программе паскаль?

1

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

2013-01-18T19:33:06+00:00

var
a: array[1..20] of integer;
n,i:integer;
begin

for i:=1 to 20 do
readln(a[i]);

n:=a[1];
for i:=2 to 20 do begin
if a[i]>n then
n:=a[i];
end;
writeln('naibolshee= ', n);
end.