Цитата:
Сообщение от Boginy
3)Задан массив целых чисел размера Р. Напечатать числа, которые входят в массив более одного раза.
|
Const
P=10;
VAR
A,B:ARRAY[1..P] of INTEGER;
i,j,k,N,q:INTEGER;
BEGIN
FOR i:=1 TO P DO
BEGIN
Write('A[',i:1,']= ');
ReadLn(A[i]);
END;
WriteLn;
q:=0;
N:=0;
FOR i:=1 TO P DO
FOR j:=i+1 TO P DO
IF A[i]=A[j] THEN
BEGIN
FOR k:=1 TO N DO
IF A[i]=B[k] THEN q:=1;
IF q=0 THEN
BEGIN
INC(N);
B[N]:=A[i];
WriteLn(A[i]);
END;
q:=0;
END;
ReadLn;
END.