Решаем задачи Абрамян на Паскале. Array100

Array100. Дан целочисленный массив размера $$N$$. Удалить из массива все элементы, встречающиеся ровно два раза, и вывести размер полученного массива и его содержимое.

Решение:

program Array100;
var
  a : array[1..10] of Integer;
  N,i,i2,i3,num:Integer;

begin
  Write('N: ');
  Readln(N);

  Writeln('A: ');
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

   i:=1;
   while (i<=N) do //основной цикл бежим по массиву до конца
    begin
     num:=0;
     for i2:=1 to N do if a[i]=a[i2] then inc(num); //подсчитываем кол-во элементов равных a[i]
     if num<>2 then i:=i+1 //если кол-во элементов не равно 2 увеличиваем счётчик на 1
     else
      begin
       for i2:=N downto i do // если кол-во элементов оказалось больше 2 удаляем все элементы равные a[i]
        if a[i]=a[i2] then // сравниваем элемент элемент
         begin        //если совпал удаляем
          N:=N-1;
          for i3:=i2 to N do a[i3]:=a[i3+1];
         end;
      end;
    end;


  Writeln(N);
  for i:=1 to N do writeln(i,' :',a[i]);
  readln;
end.

program Array100;

var

a : array[1..10] of Integer;

N,i,i2,i3,num:Integer;

begin

Write('N: ');

Readln(N);

Writeln('A: ');

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

i:=1;

while (i<=N) do //основной цикл бежим по массиву до конца

begin

num:=0;

for i2:=1 to N do if a[i]=a[i2] then inc(num); //подсчитываем кол-во элементов равных a[i]

if num<>2 then i:=i+1 //если кол-во элементов не равно 2 увеличиваем счётчик на 1

else

begin

for i2:=N downto i do // если кол-во элементов оказалось больше 2 удаляем все элементы равные a[i]

if a[i]=a[i2] then // сравниваем элемент элемент

begin //если совпал удаляем

N:=N-1;

for i3:=i2 to N do a[i3]:=a[i3+1];

end;

Writeln(N);

for i:=1 to N do writeln(i,' :',a[i]);

readln;

end.

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array100

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ