Ответы на вопрос:
Program otric; var mas: array [1..3] of integer; i, k: integer; begin k : = 0; write('введите числа: '); for i : = 1 to 3 do begin readln(mas[i]); if (mas[i] < 0) and (mas[i] mod 2 < > 0) then k : = k + mas[i]; end; writeln('сумма нечетных отрицательных чисел = ', k); end.
Популярно: Информатика
-
irinabelova20023.03.2020 16:11
-
Сашакозлов13лет02.03.2020 11:56
-
Yelena24092006831.07.2020 01:57
-
АлексаLove0626.08.2020 10:57
-
максимилиан12309821.07.2020 06:36
-
aleksandrafrolo102.11.2022 09:56
-
marinka081018.12.2022 12:20
-
FinSpb25.07.2022 14:11
-
justfrog44Arch01.02.2020 12:58
-
megadruzhinins29.10.2020 06:24