Question

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

Answer 1

Ответ:

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.