Задан массив a1, a2, ..., an из целых чисел. Вычислите их сумму.

Question

Информатика

Жозефина

7 февраля, 21:44

Задан массив a1, a2, ..., an из целых чисел. Вычислите их сумму.

+3

Ответы (1)

Знаете ответ на вопрос?

Мастридия · Answer 1

Const nx = 50; var n, sum, i:integer; R:Array[1 ... 25] of integer; Beginwrite ('Введите количество элементов n ') ; Read (n) ; for i:=1 to n do beginR[i]: = random (10) - 5; write (R[i]:3) ; sum: = sum + R[i]; end; writeln; write ('Сумма всех чисел = ', sum) end.