дан целочисленный массив N. Удалить из массива все элементы,встречающиеся [менее двух раз]1

[Zevsnet]

дан целочисленный массив N. Удалить из массива все элементы,встречающиеся [менее двух раз]1[более двух раз]2[ровно два раза]3[ровно трри раза]4.

[DRAgon™]

хотябы пожалуйста сказали

[Zevsnet]

Прошу прощения.. Будьте так любезны помочь с данной задачей.. ...заранее спасибо!

[Sparkman]

const N=100;

procedure DeleteOneFromMassiv(var mass:array of integer;var size: integer;index : integer);
var i, temp:integer;
begin
     dec(index);
     for i:=index to size-1 do
     begin
          mass[i]:=mass[i+1];
     end;
     dec(size);
end;

procedure DeleteManyFromMassiv(var mass : array of integer;var size: integer; del : integer);
var i : integer;
begin
     i:=0;
     while i<=size-1 do
     begin
          if mass[i]=del then
          begin
               DeleteOneFromMassiv(mass,size,i+1);
               dec(i);
          end;
          inc(i);
     end;
end;

var massiv : array [1..N] of integer;
    choice, i, j, SizeOfMass, count, temp : integer;
begin
     Randomize;
     SizeOfMass:=N;
     WriteLn('Random array:');
     for i:=1 to N do
     begin
          massiv[i] := random(100);
          Write(massiv[i]);
          if i<N then Write(',');
     end;

     WriteLn;
     WriteLn;
     WriteLn('Choice the action:');
     WriteLn('1 - to remove from array all elements meeting less of two times;');
     WriteLn('2 - to remove from array all elements meeting more of two times;');
     WriteLn('3 - to remove from array all elements meeting exactly two times;');
     WriteLn('4 - to remove from array all elements meeting exactly three times.');
     WriteLn;
     Write('Your choice: ');
     ReadLn(choice);
     i:=1;
     case choice of
     1:while i<=SizeOfMass do
       begin
            count:=1;
            for j:=1 to SizeOfMass do
            if (i<>j)and(massiv[i]=massiv[j]) then inc(count);
            if count<2 then
            begin
                 DeleteOneFromMassiv(massiv,SizeOfMass,i);
                 dec(i);
            end;
            inc(i);
       end;
     2:while i<=SizeOfMass do
       begin
            count:=1;
            for j:=1 to SizeOfMass do
            if (i<>j)and(massiv[i]=massiv[j]) then inc(count);
            if count>2 then
            begin
                 DeleteManyFromMassiv(massiv,SizeOfMass,massiv[i]);
                 dec(i);
            end;
            inc(i);
       end;
     3:while i<=SizeOfMass do
       begin
            count:=1;
            for j:=1 to SizeOfMass do
            if (i<>j)and(massiv[i]=massiv[j]) then inc(count);
            if count=2 then 
            begin
                 DeleteManyFromMassiv(massiv,SizeOfMass,massiv[i]);
                 dec(i);
            end;
            inc(i);
       end;
     4:while i<=SizeOfMass do
       begin
            count:=1;
            for j:=1 to SizeOfMass do
            if (i<>j)and(massiv[i]=massiv[j]) then inc(count);
            if count=3 then 
            begin
                 DeleteManyFromMassiv(massiv,SizeOfMass,massiv[i]);
                 dec(i);
            end;
            inc(i);
       end;
     else WriteLn('Error.Wrong choice.');
     end;
     WriteLn;
     WriteLn('Result:');
     for i:=1 to SizeOfMass do
     begin
          Write(massiv[i]);
          if i<SizeOfMass then Write(',');
     end;
     WriteLn;
     WriteLn;
     WriteLn('Press "Enter" to exit.');
     readln;
end.

ПС: в наказание за ловлю "халявы" не буду код объяснять , если сами разберетесь, то потом будет полегче, потому как, чем дальше в лес, тем больше дров. Поверьте, на специальности "ПОВТАС" не легко учиться, постоянно списывать не получится.

[Zevsnet]

ДА , спасибо.. разбираться буду!!... А списываю я сейчас первый раз... до этого ломал голову с помощью товарища писал... но всё-же нужно учиться.. не спорю))...

[Zevsnet]

Хочу добавить!.. что в программе переменная (Temp) лишняя.. .. но ошибкой не является

[ensoleille]

ох,если бы еще было тоже самое,но только в си^^