Как найти наибольшее из двадцати чисел? Решение в программе паскаль?
Как найти наибольшее из двадцати чисел? Решение в программе паскаль?
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы