Norakomma
4 год назад
Известна масса 12 предметов определить массу самого большого. Паскаль
ОТВЕТЫ
Fyodor
Oct 24, 2020
var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.
108
Смежные вопросы:
