Question

Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов (PASCAL). Сделайте через random, пожалуйста.

Answer 1

Ответ:

program z1;

var i,m,s:integer;

begin

randomize;

s:=0;

for i:=1 to 12 do

begin

m:=random(100);

writeln ('Масса ',i:2,' предмета: ',m);

s:=s+m

end;

write('Общая масса всего набора предметов: ',s)

end.

Объяснение:

Вначале общая масса всего набора предметов равна 0 (переменная s)

В цикле:

задаём массу предмета (random)

выводим массу предмета на экран

считаем общую массу всего набора предметов

Выводим общую массу всего набора предметов на экран