напишите программу которая в последовательности целых чисел определяет количество положительных чисел
Ответы
Ответ дал:
0
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
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад