Найти и вывести количество различных чисел в массиве - Pascal

Формулировка задачи:

Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве. Добавлено через 1 минуту помогите пож-та

Код к задаче: «Найти и вывести количество различных чисел в массиве - Pascal»

textual
uses crt;
const m = 10;
var i,j,k: integer;
    a: array [1..m] of integer;
begin
 clrscr;
 randomize;
 for i:=1 to m do
  begin
   a[i]:=random(10);
   write(a[i]:3);
  end;
  for i:=1 to m do
   begin
   for j:=1 to m do
     if i=j then
      continue
     else
      if (a[i]=a[j]) then
       begin
        if j=m then
         dec(k);
        break;
       end;
     if j=m then
      inc(k);
    end;
  writeln;
  writeln('Количество различных элементов: ',k);
 readln;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

5   голосов, оценка 4.400 из 5


СОХРАНИТЬ ССЫЛКУ