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