Подсчитать количество различных чисел в массиве

@Егор228295 · Регистрация: 15.02.2016

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

помогите пожалуйста срочно нужно на завтра решить эту задачу:

Дан линейный массив целых чисел. Подсчитать, сколько в нем различных чисел. Размер массива задан изначально и содержит не менее 10 чисел.
Числа, входящие в массив, получить либо путем ввода с клавиатуры, либо с помощью генератора случайных чисел.
Для решения поставленной задачи можно завести вспомогательный массив, элементами которого являются логические величины (False - если элемент уже встречался ранее, True – иначе).

@Constantin Cat · 16.02.2016, 11:47

Pascal

const
  n=10;
var
  a:array[1..n]of integer;
  i,j,k:integer;
begin
  writeln;
  for i:=1 to n do
    begin
      a[i]:=random(5);
      write(a[i]:3);
    end;
  writeln;
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]=a[j] then a[j]:=-1;
  j:=0;
  for i:=1 to n do
    if a[i]>=0 then
      begin
        write(a[i]:3);
        inc(j);
      end;
  writeln('Count:=':10,j);
end.

@Егор228295 0 / 0 / 0 Регистрация: 15.02.2016 Сообщений: 4
		1
	Подсчитать количество различных чисел в массиве 15.02.2016, 19:39. Показов 4665. Ответов 1 Метки нет (Все метки) помогите пожалуйста срочно нужно на завтра решить эту задачу: Дан линейный массив целых чисел. Подсчитать, сколько в нем различных чисел. Размер массива задан изначально и содержит не менее 10 чисел. Числа, входящие в массив, получить либо путем ввода с клавиатуры, либо с помощью генератора случайных чисел. Для решения поставленной задачи можно завести вспомогательный массив, элементами которого являются логические величины (False - если элемент уже встречался ранее, True – иначе). 0

	16.02.2016, 11:47

Подсчитать количество различных чисел в массиве

Решение