Задание:
Ввести данный массив, вывести на экран количество положительных членов данногомассива
Решение:
Uses crt; const n=10; var a: array[1… n] of integer; i,k: integer; beginfor i: =1 to n doread (a[i]); k: =0; for i: =1 to n doif a[i]>0 then inc (k); writeln (k); end.
Знаете другой ответ?