Меню сайта

Задача №5

Ввести —Nразличных чисел. Найти количество положительных чисел.


Program for_5-

Var a,n,i,k:integer-

Begin

Writeln(‘введите число N’)-

Readln(n)-

k:=0-

For i:=1 to N do

Begin

Writeln(‘введите число’)-

readln(a)-

if a&gt-0 then k:=k+1-

end-

Writeln(‘количество положительных чисел= ‘,k)-

Readln-

End.

Категория: Циклы | Дата: 08.11.12

Меню раздела
Блок