• 13.1. Дан массив целых чисел из 12 элементов. Найти сумму отрицательных элементов массива.
    13.2. Дан массив целых чисел из 12 элементов. Найти количество элементов массива являющихся нечетными и положительными.
    13.3. Дан массив целых чисел из 12 элементов. Выяснить верно ли, что количество положительных элементов не превышает 5.

    Турбо паскаль. Помогите пожалуйста :)

Ответы 1

  • 13. 1vara: array [1.. 100] of integer; k,i: integer; beginfor i:= 1 to 12 doreadln(a[i]); k:=0; for i:= 1 to 12 do if a[i] < 0 then k:=k+a[i]; writeln(k); end.
  • Добавить свой ответ

Войти через Google

или

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

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

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