В массиве подсчитать: количество положительных и количество чётных чисел совместно. (Частей

В массиве подсчитать: количество положительных и количество чётных чисел совместно. (Частей массива:24. Массив вводится случайным образом в промежутке [-6;13])

Задать свой вопрос
1 ответ
var a:array[1..24] of integer; k,i:integer; begin k:=0; for i:=1 to 24 do read(a[i]); for i:=1 to 24 do if (a[i]gt;0) and (a[i] mod 2=0) then k:=k+1; write(k) end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт