В паскале.

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

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.