После выполнения алгоритма Робот находиться в клетке В3. алг перемещение
нач
•вправо
•если клетка закрашена
•то вправо
•все
•влево
•если клетка закрашена
•то вправо
•все
кон
В какой клетке Робот находился перед началом выполнения алгоритма?
281
343
Ответы на вопрос:
Var ar: array[1..10000]of integer; ms: array[1..10000]of integer; i, c, n, j, p: integer; b: boolean; begin randomize; b : = true; c : = 1; write('введите количество элементов массива: '); read(n); writeln('массив: '); for i : = 1 to n do ms[i] : = -2147483648; for i : = 1 to n do begin ar[i] : = random(11); write(ar[i], ' '); end; for i : = 1 to n do for j : = i + 1 to n do begin if (ar[i] = ar[j]) then begin for p : = 1 to c do if (ar[i] = ms[p]) then b : = false; if (b = true) then begin ms[c] : = ar[i]; c : = c + 1; end; end; b : = true; end; writeln; if (c = 1) then write('нет') else begin write('есть: '); for i : = 1 to c - 1 do if(i < > c - 1) then write(ms[i], ',') else write(ms[i]); end; end.
Популярно: Информатика
-
ordal226.05.2023 21:08
-
hitman179011.09.2020 02:52
-
juanabakar09.01.2023 17:39
-
sadpepeee23.04.2020 05:43
-
uciviyciy26.01.2020 03:19
-
Elenka927203.02.2022 15:14
-
vlad145809.05.2021 06:12
-
голозавр07.08.2020 06:46
-
niminol13.10.2022 12:57
-
samsianna200313.08.2020 06:50