Ответы на вопрос:
Var a: array[1..38] of integer; i: integer; begin writeln('изначальный массив'); for i: = 1 to 76 do if i< 39 then begin a[i]: =random(51) - 20; write(a[i],' '); end else begin if i=39 then begin writeln; writeln('получившийся массив'); end; if ((a[i-38] mod 10) = 4) or ((a[i-38] mod 7) = 0) then a[i-38]: =100; write(a[i-38],' '); end; end.
Популярно: Информатика
-
Bigrash01.03.2022 14:06
-
vadolkaa15.05.2023 16:31
-
andreuss200613.08.2020 23:20
-
vasiaska23431.07.2020 05:53
-
dieric11.07.2022 16:59
-
5349007.01.2020 01:19
-
belovworms2003p0af2418.01.2020 02:52
-
ксюша169201.03.2023 05:55
-
qvetikp0cumc31.05.2020 22:02
-
bella8028.12.2020 09:21