В паскале.
Дан массив целых чисел.Посчитать 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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
