KononovaMaiorov453
?>

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

Информатика

Ответы

marusyamr

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
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

info-mosbalkon
arbekova
kmalahov
Adno1578
михаил
ekrosenergoserv
dmitrymakarov003
silantyevevgeny
Anatolevich-sergeevna
Mbkozlov6
IInessa44478
Кольцова
ganul
Maksim Lokhov
zharovaleks