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)
выводим массу предмета на экран
считаем общую массу всего набора предметов
Выводим общую массу всего набора предметов на экран
