Pascal

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

Question

Информатика

Бена

13 июля, 17:38

Pascal

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

+1

Ответы (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 предметов, определить массу самого тяжелого