Pascal

известна масса каждого из 12 предметов, определить массу самого тяжелого

Question

Информатика

Бена

18 августа, 11:41

Pascal

известна масса каждого из 12 предметов, определить массу самого тяжелого

+2

Ответы (1)

Знаете ответ?

Федяха · Answer 1

Var a:array [1 ... 12] of integer; i, max:integer;

begin

for i:=1 to 12 do

begin

a[i]:=random (1,1000) ;

if a[i]>max then max:=a[i];

end;

writeln ('naib. massa=', max) ;

end.

Pascalизвестна масса каждого из 12 предметов, определить массу самого тяжелого

Pascal

известна масса каждого из 12 предметов, определить массу самого тяжелого