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

Question

Информатика

Элюня

5 июля, 00:13

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

+1

Ответы (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.