• Сформировать целочисленный массив 20 элементов.
    1) Подсчитать количество положительных элементов.
    2) Подсчитать сумму нечетных элементов.

Ответы 1

  • vara:array[1..20] of integer;b,c,i:integer; //b положительные c сумма нечетных i для циклаbeginb:=0;c:=0;for i:=1 to 20 do beginreadln(a[i]);if a[i]>0 then b:=b+1;if a[i] mod 2<>0 then c:=c+a[i];end;writeln(b);writeln(c);end.
    • Автор:

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

Войти через Google

или

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

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

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