Константин
6 год назад
. Найти максимальный элемент массива из 10 целых чисел. На языке Паскаль! Помогите.
ОТВЕТЫ
Домашнев
Jul 9, 2019
Program Marray;
var arr:array[1..10] of integer;
i,max:integer;
begin
for i:=1 to 10 do readln(arr[i]);
for i:=1 to 10 do
begin
if arr[i]gt;max then max:=arr[i];
end;
writeln(max);
end.
var arr:array[1..10] of integer;
i,max:integer;
begin
for i:=1 to 10 do readln(arr[i]);
for i:=1 to 10 do
begin
if arr[i]gt;max then max:=arr[i];
end;
writeln(max);
end.
178
