Подскажите пожалуйста такое решение.
Есть некоторый массив.И из него нужно удалить элементы
меньшие какого либо значения
Например
1,3,5,4,3,1,8,6=array
удаляем все элементы меньше 5
получаем 5,8,6
for i := k to n - 1 do arr[i] := arr[i+1];
n := n - 1;
uses crt;
var a:array[1..10] of byte;
i,n,j,k,t:byte;
begin
Clrscr;
randomize;
for i:=1 to 10 do begin
a[i]:=random(9)+1;
write(a[i]:2);
end;
writeln;
readln(j);
n:=10;
i := 1;
while i <= n do
if a[i]<=j then begin
for k:=i to n-1 do a[k]:=a[k+1];
dec(n)
end
else inc(i);
for i:=1 to n do write(a[i]:2);
readkey
end.