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

SeaN014

10.03.2023 05:59

Информатика

Есть ответ 👍

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

145

182

Посмотреть ответы 2

Ответы на вопрос:

alekseysidorov

Информатика

4,7(45 оценок)

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.