Ответы на вопрос:
Объяснение:
var
mass : array [1..100] of integer;
i, j : integer;
begin
randomize;
for i := 1 to 12 do
mass[i] := random(40) - 40;
for j := 1 to 12 do
if mass[j] mod 2 = 0 then
mass[j] := 0;
for i := 1 to 12 do
write(mass[i]);
end.
2
var
mass : array [1..100] of integer;
i, j : integer;
begin
for i := 1 to 10 do
read(mass[i]);
for j := 1 to 10 do
if mass[j] = j then
mass[j] -= 2;
for i := 1 to 10 do
write(mass[i]);
end.
Популярно: Информатика
-
zdima293928.09.2022 22:41
-
annakislova2028.07.2020 11:05
-
ulyanan26080115.09.2022 08:58
-
Hictoru18.11.2020 14:33
-
zopanegra11.01.2020 05:16
-
Хованский8726.03.2020 20:18
-
pozitiv2902.06.2021 10:48
-
ilyusha46278222.10.2020 07:29
-
ArianaLi20.01.2021 09:52
-
t75197508.10.2022 08:31