Ответы на вопрос:
А) см. прикрепленный рисунок;
Б) см. ниже.
поднять перо
сместиться в точку (3, 2)
опустить перо
сместиться на вектор (5, 4)
сместиться на вектор (-1, -2)
сместиться на вектор (1, -2)
сместиться на вектор (-5, 4)
сместиться на вектор (0, -4)
сместиться на вектор (-2, 2)
сместиться на вектор (2, 2)
Первое , программа задает массив, сортирует его, затем сравнивает элемент с последующем uses crt; var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); for i: =1 to 99 do if a[i]=a[i+1] then begin writeln(a[i]); writeln(a[i+1]); end; end. второе . программа также сортирует и сравнивает элементы uses crt; var a: array[1..100] of integer; i,j: integer; procedure swap(var x,y: integer); var t: integer; begin t : = x; x : = y; y : = t end; begin for i: =1 to 100 do a[i]: =random(100); for j: =1 to 99 do for i: =1 to 100-j do if a[i] > a[i+1] then swap(a[i],a[i+1]); for i: =1 to 99 do if a[i]< > a[i+1] then begin writeln(a[i]); end; end.
Популярно: Информатика
-
weazelhubozcy1c17.08.2021 21:26
-
Арусяк12226.10.2022 23:01
-
asiali124.08.2022 06:49
-
nikpenkov0227.08.2022 22:37
-
valwkebe22.05.2022 12:03
-
пппппп41ррр30.06.2021 04:47
-
GoldFish170115.10.2022 00:30
-
Polina7383773908.03.2021 20:12
-
маруська6208.01.2021 00:23
-
sirius4229519.06.2021 13:47