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

Ответы 1

  • Var   N,A,k:integer;BeginWrite('N = ');ReadLn(N);k:=0;For N:= 1 to N do    Begin    Read(A);    if A>0 then k:=k+1;    End;WriteLn('Кол-во положительных, среди введённых: ',k);End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years