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

Question

Информатика

Элюня

3 мая, 15:16

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

+4

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