Составьте программу подсчёта числа различных элементов одномерного массива A(Q) Паскаль

Предыдущий
вопрос Следующий
вопрос

program CountDifferentElements;
var
A: array[1..10] of integer; // массив чисел
count, i, j, diff: integer; // переменные для подсчета различных элементов

begin
count := 0; // начальное количество различных элементов равно 0

// заполняем массив A
for i := 1 to 10 do
begin
write('Введите элемент массива A: ');
readln(A[i]);
end;

// считаем количество различных элементов
for i := 1 to 10 do
begin
diff := 1; // предполагаем, что элемент различный
for j := 1 to i - 1 do
begin
if A[i] = A[j] then
begin
diff := 0; // элемент не различный
break;
end;
end;
count := count + diff;
end;

// выводим результат
writeln('Количество различных элементов массива A: ', count);

end.