ТутРешу.Ру

Дан целочисленный массив размера…

Задание:

Дан целочисленный массив размера K. Вычислить количество положительных и количество отрицательных элементовмассива.

Решение:

Uses crt; var mas: array [1… 1000] of real; x,k,o,p: integer; begin write ('K='); readln (K); o: =0; p: =0; for x: =1 to K do begin write ('mas[',x,']: '); readln (mas[x]); if mas[x]<0 then inc (o); if mas[x]>0 then inc (p); end; writeln; writeln ('Отрицательных элементов: ',o); writeln ('Положительных элементов: ',p); end.




Знаете другой ответ?

Отправить свой ответ