 |
На сайте: |
 |
|
|
 |
Hахождение неповторяющихся элементов массива
|
 |
| |
Дан целочисленный массив A(n). Получить все числа массива, которые входят в него только один раз.
var a,b:array[1..100] of shortint;
i,j,c,n:0..100;
BEGIN
writeln('Vvedite N (1 readln(n);
for i:=1 to n do readln(a[i]);
writeln('Ishodnyi massiv: ');
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]>a[j] then begin
a[j]:=a[i]-a[j];
a[i]:=a[i]-a[j];
a[j]:=a[i]+a[j];
end;
; j:=0; c:=0;
for i:=1 to n do
if a[i]=a[i+1] then inc(c)
else
if c=0 then begin
inc(j); b[j]:=a[i];
end
else c:=0;
writeln('Ne povtoriaiutsea: ');
for i:=1 to j do write(b[i]:4);
readln;
END.
<< Назад
|
|
|
 |
Добавленно:
06.08.04 Автор: Аня
 | | |
