Задать вопрос
29 марта, 09:55

Подскажите, составить программу вычесления: суммы всех положительных элементов массива.

буду благодарна.

+3
Ответы (1)
  1. 29 марта, 10:11
    0
    var

    a:array[1 ... 1000]of integer;

    i, sum:integer;

    begin

    readln (n);

    sum:=0;

    for i:=1 to n do begin

    read (a[i]);

    inc (sum, a[i]);

    end;

    writeln (sum);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Подскажите, составить программу вычесления: суммы всех положительных элементов массива. буду благодарна. ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы