Вывести элементы массива, встречающиеся только один раз

12.10.2014, 18:34. **Показов** 7408. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Помогите решить задачу.Срочно нужно . Задача:Задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем ровно один раз.

@erl27 · 12.10.2014, 19:15

Pascal

var
  K: array[1..20] of integer;
  i, j, N: integer;
  f: boolean;
  
begin
  randomize;
  N := 20;
  writeln('Исходный случайный массив:');
  for i := 1 to N do
  begin
    k[i] := random(20);
    write(' ', k[i]) 
  end;
  writeln;
  writeln('Элементы, встречающиеся один раз:');
  for i := 1 to n do
  begin
    f := false;
    j := 0;
    repeat
      inc(j);
      if j <> i then
        f := (k[i] = k[j])
    until f or (j = n);
    if not f then write(' ', k[i])
  end
end.

user_tema_
		1
	Вывести элементы массива, встречающиеся только один раз 12.10.2014, 18:34. Показов 7408. Ответов 1 Метки нет (Все метки) Помогите решить задачу.Срочно нужно . Задача:Задать массив целых чисел. Вывести на экран только те значения элементов массива, которые встречаются в нем ровно один раз.

	12.10.2014, 19:15

Вывести элементы массива, встречающиеся только один раз

Решение