В массиве хранятся сведения о стоимости 12 различных

предметов. Определить общую стоимость всех предметов.

Var

a: array [1 ... 12] of real; / / Массив стоимости

s: real; / / сумма

i: integer;

begin

s: = 0;

for i: = 1 to 12 do {12 раз вводим стоимость предмета и прибавляем ее к значению s}

begin

writeln ('Введите стоимость предмета') ;

readln (a[i]) ;

s: = s + a[i];

end;

writeln ('Общая стоимость всех предметов: ', s) ;

end.