Сформировать массив е из 12 целых чисел заполнить случ. от -3 до 18 заменить в массиве все четные на 0 вывести массив
153
368
Ответы на вопрос:
Var e: array [1..12] of integer; i,k: integer; begin randomize; for i: =1 to 12 do begin e[i]: =random(21)-3; if (e[i] mod 2 = 0) then e[i] : =0; write(e[i],' '); end; end.
Популярно: Информатика
-
faridudin07.06.2022 22:11
-
maksCRAFTer28.07.2022 10:11
-
3457ДашаСупер11113.01.2022 00:48
-
мкм6ккмг07.06.2022 18:11
-
ДмитрийКалашник25.01.2020 21:32
-
hyekyo31101715.07.2021 09:19
-
megabobr1124.05.2020 15:37
-
nubpolymaster17.06.2023 00:03
-
AvgustinaQueen06.01.2021 13:44
-
Zein30401.02.2023 15:56