• дан массив A из 20 элементов.. найти количество положительных элементов массива. результат вывести на печать..

Ответы 1

  • program p1;var  a: array[1..1000] of integer;var  n, i, c: integer;begin readln(i);c := 0;for n := 1 to i do  beginreadln(a[i]);    if a[i] > 0 then c := c + 1;end;writeln(c);end.
    • Автор:

      chume0nd
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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