Pascal

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

Question

Информатика

Эвелина

27 января, 22:28

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