Дан массив.нужно посчитать количество положительных и отрицательных элементов.
Дан массив.нужно посчитать количество положительных и отрицательных элементов.
Ответ(ы) на вопрос:
Гость
Методика решения:
Создаем цикл через фор..то от 0 до длины массива -1
В цикле ифом проверяем знак числа (>=0|<0)
Если больше то прибавляем единицу к переменной счетчику
Если меньше то к другой переменной.
ПОСЛЕ цикла выводим обе переменные.
Гость
Var a:array [1..10]of integer; I, j, plus,minus: integer; Begin Plus:=0; Minus:=0; For i:=1 to 10 do begin Read ( a [ I ] ); If a[ I ] >0 then plus :=plus+1; If a [ i]<0 then minus:=minus+1; End; Writeln (plus, minus); End.
Не нашли ответ?
Похожие вопросы