Как найти наибольшее из двадцати чисел? Решение в программе паскаль?
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
