Question

Дан массив, состоящий из 100 целых чисел. Выведите все числа, которые встречаются в этом массиве:
а) несколько раз;
б) только по одному разу.

Answer 1

а) несколько раз;
var   arr: array [1..100] of integer;   i, j: integer;
// Заполнение массива arr значениями // ...
for i := 1 to 100 do begin   for j := i + 1 to 100 do   begin     if (arr[i] = arr[j]) then     begin       writeln('Число ', arr[i], ' повторяется в массиве.');       break;     end;   end; end;
б) только по одному разу.
var   arr: array [1..100] of integer;   i, j: integer;
// Заполнение массива arr значениями // ...
for i := 1 to 100 do begin   for j := 1 to 100 do   begin     if (i <> j) and (arr[i] = arr[j]) then       break;     if j = 100 then       writeln('Число ', arr[i], ' встречается только один раз.');   end; end;