Ответы на вопрос:
Program rand_max; const size=8; var main_mas: array [1..size] of integer; i,nchet,proizv: integer; begin nchet: =0; proizv: =1; randomize; writeln('исходный массив: '); for i: =1 to size do begin main_mas[i]: =random(11); write(' ',main_mas[i],' '); if (odd(main_mas[i])) then begin inc(nchet); proizv: =proizv*main_mas[i]; end; end; writeln; writeln('кол-во нечетных: ',nchet); writeln('произведениче нечетных = ',proizv); end.
Популярно: Информатика
-
xgvhhdhs18.10.2020 07:06
-
prostochel428.05.2023 12:07
-
allegron456716.02.2021 11:18
-
llovich01.12.2022 16:22
-
borodayegaliaf01.03.2023 21:45
-
026k18.05.2021 01:44
-
newsosnovskiymp06yuf02.05.2020 22:24
-
gvg197106.06.2022 14:34
-
xDVadiKSlivE19.04.2021 07:21
-
Zzzz15105.09.2020 03:10