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

Question

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

Answer 1

93

andy88

17 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: