Задание:
Задана последовательность из 10 значений целого типа, необходимо определить количество положительных элементов. Составить программу с использованиемциклов
Решение:
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.
Знаете другой ответ?