Ответы на вопрос:
Var a: array[1..100] of integer; i,n: integer; begin writeln('введите количество элементов массива'); read(n); writeln('введите элементы массива'); for i: =1 to n do begin read(a[i]); if i mod 3 = 0 then a[i]: =0; end; for i: =1 to n do write(a[i],' '); end.
Популярно: Информатика
-
mstella200302.10.2020 16:25
-
Gamaun13.03.2022 11:09
-
bng45311.01.2022 07:01
-
MercerNani29.11.2020 19:43
-
альбина35024.06.2023 23:43
-
12345678978525.01.2020 08:05
-
nastyushakulik03.04.2021 04:49
-
Ksyusha2007.12.2022 09:21
-
Viktoria20043027.05.2023 05:51
-
viktoriakovalch19.08.2021 19:50