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

неверно же

Зачем рандом?

А все....Это ввод рандомный

Спасибо большое

const nx = 20;var A:array[1..nx]of integer; i,n:integer; sum:double;beginwrite('Введите число элементов');Readln(n);for i:=1 to n do beginA[i]:= random(100)-50;write(A[i]:5);sum:= sum + i * A[i];end;writeln;write('sum = ', sum);end.