Задание:
Дан целочисленный массив размера 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.
Знаете другой ответ?