Ответы на вопрос:
Var i, chet, summa: integer; mass: array[0..24] of integer; begin for i: =0 to 24 do begin mass[i]: = random(-50,50); if (mass[i] mod 2 = 0) then begin chet+=1; writeln('элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и чётен.'); end else begin writeln('элемент массива под номером ' + (i+1) + ' равен ' + mass[i] + ' и нечётен.'); summa+=mass[i]; end; end; writeln('количество чётных членов массива: ', chet); write('сумма нечётных членов массива: ', summa); end.
Популярно: Информатика
-
alexeygutorov06.07.2020 11:55
-
Whitecat11120.10.2022 14:43
-
AliceКрошка24.03.2023 21:18
-
DimasStar120.01.2023 04:41
-
KarinaRihter06.08.2020 14:11
-
Denisgurlo29.03.2023 05:29
-
Сетора1115.09.2022 00:07
-
Имра1111121.06.2021 11:05
-
РаботныйАладушек27.05.2022 01:46
-
аоаоаоаоатте22.08.2021 02:26