Известна масса 12 предметов определить массу самого большого. Паскаль

Question

Информатика

Антип

3 июля, 06:42

Известна масса 12 предметов определить массу самого большого. Паскаль

+2

Ответы (1)

Знаете ответ на вопрос?

Колюня · Answer 1

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.