Тот же массив, но надо вывести все числа, которые встречаются несколько раз.
Код:
const n=10;
var
a:array[1..n] of integer;
k,i,j:integer;
begin
for i:=1 to n do
begin
Write('a[',i:2,']= ');
Readln(a[i]);
end;
for i:=1 to n do
begin
for j:=1 to n do
if a[i]=a[j] then k:=k+1;
if k>=2 then writeln(a[i]);
k:=0;
end;
readln;
end.
Работает, но если число к примеру встречается 3 раза, то 3 раза оно и выведется. Как сделать, чтобы оно выводилось лишь единожды ?
З.Ы. А есть в паскале оператор "преждевременного" выхода из цикла ? Или надо использовать GOTO label ?