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

Question

Информатика

Наталия

24 марта, 18:57

Задан массив 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.