язык программирования Pascal

Заполнить массив целых чисел В [1..10] Найти сумму элементов массива

Монтер111 Монтер111    1   18.12.2020 23:13    0

Ответы
linasysueva01 linasysueva01  17.01.2021 23:14

var B: array [1..10] of integer;

i,s:integer;

begin

 for i:=1 to 10 do

   readln(B[i]);

 for i:=1 to 10 do

   s:=s+B[i];

 writeln(s);

end.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика