Задана последовательность из 10 значений целого типа…

Question

Задана последовательность из 10 значений целого типа, необходимо определить количество положительных элементов. Составить программу с использованиемциклов

Answer 1

94

nightmare08

23 марта 2023

Program znan; uses crt; varmass: array [1… 10] of integer; i,c: integer; beginc: =0; clrscr; for i: =1 to 10 do beginwriteln ('Vvedite chislo ',i); readln (mass[i]); clrscr; end; for i: =1 to 10 do if mass[i]<0 then c: =c+1; writeln ('colichestvo otricatelnuh elementov ',c); readln; end.

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

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

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

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

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