29 августа, 01:56

В паскале.

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

+2
Ответы (1)
  1. 29 августа, 03:38
    0
    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. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы