Пример. Известны координаты 15 точек: A(4, 1), B(4, 2), C(1, 2), D(4, 5), E(2, 5), F(4, 7), G(3, 7), Н(5, 9), І(7, 7), (6, 7), к(8, 5),
L6, 5), М(9, 2), N(6, 2), O(6, 1). Если отметить эти точки на коор-
динатной плоскости, а затем соединить их отрезками в последова
тельности А — В — c — D — E — F — G - н - 1 - J - К
L - м - N — 0 — А, то получим рисунок 23.
Мы провели работу по декодированию графического изображе-
ния, состоящего из 15 соединённых отрезками точек, заданных
185
454
Ответы на вопрос:
Var i,n: integer; a: array of integer; begin setlength(a,10); write('исходный массив: '); for i: =0 to 9 do begin a[i]: =random(10); write(a[i],' '); end; writeln; write('преобразованный массив: '); for i: =0 to 9 do begin if not((i mod 2=0) and (a[i] mod 2=0)) then begin a[n]: =a[i]; n: =n+1; end; end; setlength(a,n); for i: =0 to n-1 do write(a[i],' '); end.
Популярно: Информатика
-
Foxsi200723.08.2022 07:17
-
ekzz105.03.2020 15:45
-
morugadenys30.04.2020 11:46
-
Trion2404.04.2021 02:34
-
sahverdijevelme111.09.2021 08:13
-
Кукамука29.05.2021 14:47
-
DaraMarkos25.06.2023 10:27
-
ryenasssss09.06.2023 02:02
-
привет98007.11.2022 02:51
-
Nastya111111346629.02.2020 00:56