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

[FlayGlam]

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

[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]

Сообщение от FlayGlam

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

ну, вряд ли.
процедура 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.

[FlayGlam]

Пасибо большое

[olej.tsil]

Сообщение от FlayGlam

Пасибо большое

Судя по плодовитости ваших запросов, примерно в одно время и на сходные темы, вы, наверное вознамерились перерешать весь учебник сразу ... за всю группу?
Да ещё и чужими руками.

Смело. Свежо.

[newerow1989]