Дан одномерный массив целых чисел…

Дан одномерный массив целых чисел… Колличество чисел и их значения вводятся с клавиатуры. Индексация элементов массива начинается с единицы. Определить произведение элементов массива, которые являются отрицательными четными числами. Если аких чисел нет, то вывести на экран нуль

в избранное

temych

25 августа 2022

var a: array[1… 100]of integer; i,s,n: integer; c: boolean; beginreadln (n); for i: =1 to n do readln (a[i]); s: =1; for i: =1 to n doif (a[i]<0) and (a[i] mod 2=0) then begin s: =s*a[i]; c: =true; end; if c then writeln (s) else writeln (0); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Запишите пожалуйста два известных вам факта, относящихся к природным явлениям!) _

Запишите словами число…

Какие есть способы создания изображений?

Приведите примеры понятий, обьемы которых являются: а) пустым множеством; б) множеством

Сканируется цветное изображение размером 10*15 см. Разрешающая способность сканера- 600*600 dpi, глубина цвета 3 байта

Носок, мозоль, георгин, помидор- какое слово лишнее?

Найти основание х с.с., для кот-й вып. Равенство 92 (10)=161 (х)

Ввести 2 числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран…

27400

Алгебра

14822

Английский язык

14216

Биология

7369

Другой

720

18829

8304

15850

5255

11818

23332

15992

73118

8152

466

46271

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: