Известна масса каждого из 12 предметов. Определить общую массу всего набора предметов.

На Паскале

Var A:array[1 ... 12] of integer;

i:integer;

s, b:real;

begin

for i:=1 to 12 do

begin

writeln ('Введите массу ', i,' предмета');

readln (b);

s:=s+b;

end;

writeln ('Масса всех предметов равна ', s:8:4,' кг');

end.