Последние записи

made in programmersforum 10

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

17th
Ноя

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

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.

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