Удаление элементов из одномерного массива

Posted by obzor under Delphi

Удалить все элементы, большие данного числа А (А вводить с клавиатуры).

newerow1989

var i,j,a:integer;
    len:integer=10;
    p:array of integer;
begin
   Write('a = '); Readln(a);
   Randomize;
   SetLength(p,len);
   For i:=0 to len-1 do
   begin
      p[ i]:=Random(21);
      Write(p[ i]:2,'  ');
   end;
   Writeln;
   Writeln;
   i:=0;
   Repeat
      If p[ i]>a then
      begin
         For j:=i to len-2 do
            p[j]:=p[j+1];
         len:=len-1;
         i:=i-1;
      end;
      i:=i+1;
   Until i>=len;
   For i:=0 to len-1 do
      Write(p[ i]:2,'  ');
   Writeln;
   Readln;
end.

FlayGlam

А можно как-то сделать без процедуры SetLength?

Serge_Bliznykov

ну, вряд ли.
процедура SetLength устанавливает размер для динамических массивов.

Можно, наверное, вместо динамических массивов использовать статические (ну, скажем, на 1000 элементов) и хранить отдельно счётчик N — сколько элементов в массиве заполнено.
Но зачем, если в PascalABC.NET есть нормальные динамические массивы?!

вот, смотрите:

const
  MaxLen=10;
var i, j, A, n:integer;
    p:array[0..MaxLen-1] of integer;
begin
   Write('A = '); Readln(A);
   Randomize;
   n:=MaxLen;
   For i:=0 to n-1 do begin
     p[ i]:=Random(21);
     Write(p[ i]:2,'  ')
   end;
   WriteLn;

   // Удаление из массива всех больше A - точнее, оставляем все элементы, которые меньше или равны A
   j := 0;
   for i := 0 to n - 1 do
     if p[ i]<=A then
     begin
       p[j] := p[ i];
       j += 1;
     end;
   n := j;

   Write('Array after Delete:');
   for i:=0 to n-1 do Write(p[ i]:2,'  ');
   WriteLn;
end.

тема на форуме

Похожие статьи

• Удалить повторяющиеся элементы из массива (VBA в Excel)
• Сортировка кучей на языке Си
• Pascal — Заполнить массив случайными числами
• Реализация процедуры поиска max элемента одномерного массива
• PascalABC.net — Заполнить массив случайными числами и найти сумму элементов
• Замена элементов в двумерном массиве
• Как быть, если полученный массив Excel VBA имеет всего одно значение
• Считывание двумерного массива из потока данных
• Есть ли в массиве А[n] числа В и С и определить, какое из чисел встречается в массиве чаще
• Обнуления массива слов на Ассемблере