Question

В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов.
Visual Basic

Answer 1

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

   sym,i:integer;

   

BEGIN

 

For i:=1 to 12 do

Begin

  Read(a[i]); // Ввод стоимости

  sym:=sym+a[i];

End;

 

Write(sym);

 

END.