Задать вопрос
4 мая, 01:41

найти сумму отрицательных чисел массива и количество четных

+2
Ответы (1)
  1. 4 мая, 05:24
    0
    var a: array [1 ... 10] of integer;

    s:real;

    n, i: integer;

    begin

    n:=0;

    s:=0;

    for i:=1 to 10 do begin

    readln (a[i]) ;

    if a[i]<0 then s:=s+a[i];

    if a[i] mod 2 = 0 then n:=n+1;

    end;

    writeln (s,', ', n) ;

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