Задача по программированию на языке Pascal.
Заполнить массив из 10 элементов значениями, вводимых с клавиатуры, и вычислить сумму всех элементов.

nikysa1 nikysa1    3   25.04.2020 03:39    0

Ответы
Rararasa Rararasa  13.10.2020 20:44

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

var i,s: integer;

begin

s:=0;

for i:=1 to 10 do

 begin

 readln(A[i]);

 s:=s+A[i];

 end;

writeln();

writeln('Сумма всех элементов: ',s);

end.

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