Массив А вводится с клавиатуры. Отыскать суммы чётных количество отрицательных его

Массив А вводится с клавиатуры. Отыскать суммы чётных количество отрицательных его частей. Размер произвольный. написать программу с одной функцией и процедурой . За ранее огромное спасибо

Задать свой вопрос
1 ответ
Program primer;var I,k,d,n: integer;A: array[1..100] of integer; beginfor i:=1 to n doif a[i] mod 2=0 then k:=k+1;if a[i]lt;0 then d:=d+1;writeln(k,' количество четных членов массива');writeln(d,' количества отрицательных членов массива');end.
Эстеровская Эвелина
нужна полная программка
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт