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.
Поделитесь своими знаниями, ответьте на вопрос:
В массиве хранятся сведения о стоимости 12 различных предметов. Определить общую стоимость всех предметов. Visual Basic
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.