Категория - Информатика Автор - temanepidor напишите программу которая в последовательности целых чисел определяет количество положительных чисел
Категория - Информатика Автор - temanepidor напишите программу которая в последовательности целых чисел определяет количество положительных чисел
Ответ Автор - nistratov7 var a,i,k,sum:integer; begin read(a); //кол-во числе в последовательности for i:=1 to a do begin read(k); if(k>=0)then sum:=sum+1; //проверка на положительное число end; write(sum); end