• Для массива чисел A[1...N] найти количество положительных чисел! Помогите пожалуйста!

Ответы 1

  • const n=10;var a:array[1..n] of integer;k,i:integer;beginRandomize;for i:=1 to n do begin a[i]:=random(51)-25; write(a[i],' '); end;writeln;k:=0;for i:=1 to n do if a[i]>0 then k:=k+1;writeln('k = ',k);end.Пример:-17 -20 -21 -15 -12 24 1 0 14 19 k = 4
  • Добавить свой ответ

Войти через Google

или

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

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

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