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

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

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

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

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

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

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

end.