Удаление из массива чисел больших К

Программа для удаления из массива чисел больших чем число К.

Program udalenie_elementow_bolche_k;
Uses Crt;
const n= 15;
Var a: array [1..n] of integer;
     i, j, nOst, k: integer;
Begin
     Writeln('введите k');
     Readln(k);

     Randomize;
writeln('выводим массив из 15 случайных чисел');
For i:= 1to n do

Begin 
a[i]:=-15+ Random(100);
Write(a[i],'  '); 
End;
writeln;

nOst:=n;
for i:=n  downto 1 do
if a[i]>k then
begin
     for j:=i to nOst-1 do
     a[j]:=a[j+1];
     a[nOst]:=0;
     dec(nOst);
end;
Writeln('удалённый массив');
For i:= 1to nOst do
    Write(a[i],'  ');
  
Readln; 
end.

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


Защитный код
Обновить

Яндекс.Метрика