В паскале.

Дан массив целых чисел. Посчитать a1+2a2+3a3 + ... + n*an.

Question

Информатика

Леонард

6 марта, 22:17

В паскале.

Дан массив целых чисел. Посчитать a1+2a2+3a3 + ... + n*an.

+3

Ответы (1)

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

Пана · Answer 1

Const nx = 20;

var A:array[1 ... nx]of integer; i, n:integer; sum:double;

begin

write ('Введите число элементов') ; Readln (n) ;

for i:=1 to n do begin

A[i]: = random (100) - 50; write (A[i]:5) ;

sum: = sum + i * A[i]; end;

writeln; write ('sum = ', sum) ; end.

В паскале.Дан массив целых чисел. Посчитать a1+2*a2+3*a3 + ... + n*an.

В паскале.

Дан массив целых чисел. Посчитать a1+2a2+3a3 + ... + n*an.