profile
Опубликовано 4 года назад по предмету Информатика от Seleone

В массиве из 10 чисел есть положительные и отрицательные элементы.Вычислить сумму отрицательных элементов масива.

Составить программу на языке паскаль и блок-схему.заранее спасибо)

  1. Ответ
    Ответ дан Alphaeus

    Program Seleone;
    const n=10;
    var a:array[1..n] of integer;
      sum, i: integer;
    begin
      writeln('*** alphaues is thinking... ***');
      sum:=0;
      for i:=1 to n do
      begin
        write('Введите ',i,'-e число ');
        readln(a[i]);
        if a[i] < 0 then sum := sum + a[i];
      end;
      writeln('Сумма отрицательных элементов равна ',sum);
    end.

Самые новые вопросы