Задать вопрос
20 апреля, 23:23

Дан массив подсчитать сумму отрицательных элементов?

+4
Ответы (1)
  1. 21 апреля, 01:59
    0
    Const

    handsfree = true;

    var

    a: array[1 ... 100] of real;

    i, n: integer;

    sum: real;

    begin

    {ввод массива}

    if handsfree then

    n : = random (20) + 5

    else begin

    write ('n = ') ;

    readln (n) ;

    end;

    writeln ('Данные массива:') ;

    for i : = 1 to n do

    begin

    if handsfree then begin

    a[i] : = random (100) - 50;

    write (a[i], ' ') ;

    end

    else readln (a[i]) ;

    end;

    writeln () ;

    {подсчет суммы и произведения и агригатов}

    sum : = 0;

    for i : = 1 to n do

    if a[i] < 0 then {если нужен фильтр}

    sum : = sum + a[i];

    writeln ('sum = ', sum) ;

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