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

Question

Информатика

Лидоня

28 января, 19:11

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

+5

Ответы (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.