Задать вопрос
1 декабря, 19:33

Дан массив из 10 элементов целого типа определить количество положительных и отрицательных элементов массива.

+2
Ответы (1)
  1. 1 декабря, 21:44
    0
    Var

    mas: array[1 ... 10] of integer;

    plus, minus, i:integer;

    begin

    randomize;

    write ('Массив: ') ;

    for i : = 1 to 10 do begin

    mas[i]:=random (10) - 5;

    write (' ', mas[i]) ;

    if (mas[i] > 0) then

    plus:=plus+1;

    if (mas[i] < 0) then

    minus:=minus+1;

    end;

    writeln () ;

    writeln ('Положительных = ', plus) ;

    writeln ('Отрицательных = ', minus) ;

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