Найти числа, встречающиеся среди элементов массива X более одного раза - PascalABC.NET
Формулировка задачи:
Помогите пожайлуста
Нужно найти числа, встречающиеся среди элементов массива X более одного раза.
Элементы массива вычисляются по формуле X[i]=i*i-5*i+4, где i = 1, 2, …, 10.
Делаю на PascalABC.NET
Решение задачи: «Найти числа, встречающиеся среди элементов массива X более одного раза»
textual
Листинг программы
const n=10;
var x:array[1..n] of integer;
m:set of integer;
i,j,k:byte;
begin
writeln(' ');
for i:=1 to n do
begin
x[i]:=i*i-5*i+4;
write(x[i]:4);
end;
writeln;
writeln('Числа которые встречаются более 1 раза');
m:=[];
for i:=1 to n-1 do
begin
j:=i+1;
k:=0;
while (j<=n)and(k=0) do
if(x[j]=x[i])then
begin
k:=1;
if not(x[j] in m) then
begin
write(x[j]:4);
m:=m+[x[j]];
end
end
else inc(j);
end;
writeln
end.