Кто подскажет как можно включить отображение количества оперативной памяти,возле мусорки на ХОНОР?
207
389
Ответы на вопрос:
Заведём ещё один массив и будем в него записывать, правда ли, что в массиве есть элементы, равные данному, и текущий элемент - первый из них. затем выведем все элементы, для которых это оказалось правдой. pascal var i, j, n: integer; flag: boolean; a: array[1..10000] of integer; b: array[1..10000] of boolean; begin read(n); for i : = 1 to n do begin read(a[i]); b[i] : = true; end; b[n] : = false; for i : = 1 to n - 1 do if b[i] then begin flag : = true; for j : = i + 1 to n do if a[i] = a[j] then begin flag : = false; b[j] : = false; end; if flag then b[i] : = false; end; for i : = 1 to n do if b[i] then write(a[i], ' '); end.
Популярно: Информатика
-
kate05080420.12.2022 03:18
-
Lexa68RUS01.07.2021 06:08
-
leanna198229.07.2022 11:26
-
зайка19111115.06.2022 22:16
-
Fidjit08.07.2021 18:13
-
Elizaveta54443503.02.2020 06:06
-
progames200221.08.2022 16:36
-
0807798797908.12.2021 02:35
-
pagan1977sanyap0apdo06.06.2020 04:03
-
Машаrobotg29.06.2022 00:10