Program lab1;
uses crt;
var
A:array[0..100] of integer;
k,s,count,i,j:integer;
Begin
clrScr;
write('count=');
readln(count);
for i:=1 to count do
begin
write('A[',i,']=');
readln(A[i]);
end;
writeln('Уник. элементы удалены');
for i:=1 to count do
begin
s:=0;
for j:=1 to count do
if A[i]=A[j] then
s:=s+1;
if s<=1 then
begin
writeln('A[',i,']=',A[i]);
end;
readkey;
end;
End.
Сообщение отредактировано: Fraddy -