uses crt;
const n=10;
var a:array[1..n] of integer;
i,j,k:byte;
x:integer;
begin
clrscr;
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(50);
write(a[i]:4);
end;
writeln;
writeln;
write('Введите число для сравнения x=');
readln(x);
k:=0;
for i:=n downto 1 do{начнем с конца чтобы не сбить индексы}
if a[i]<x then{если меньше}
begin
k:=1;{фиксируем}
if i=n then a[i]:=0{если последнее, заменяем на 0}
else{иначе}
begin
for j:=i to n-1 do{сдвигаем на него конец массива}
a[j]:=a[j+1];
a[n]:=0;{в конец пишем 0}
end;
end;
if k=0 then write('Элементов меньше ',x,' нет')
else
begin
writeln('Массив псле сжатия:');
for i:=1 to n do
write(a[i]:4);
end;
readln
end.
Похожие записи/страницы:
- Дан целочисленный массив с количеством элементов n. Сжать массив,выбросив из него каждый второй элемент -…
- Удалить из массива все элементы встречающиеся ровно 2 раза - Pascal(Паскаль)
- Дан массив целых чисел. Удалить из него все четные элементы стоящие на нечетных местах - Pascal(Паскаль)
- Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых…
- Дан целочисленный массив размера n. Назовем серией группу подряд идущих одинаковых элементов, а длиной серии -…
- Сжать массив выбросив каждый третий элемент, без использования дополнительного массива. отсортировать полученный…
- Дан массив размера N. преобразовать его, вставив перед каждым положительным элементом нулевой элемент - Pascal(Паскаль)
- Дан одномерный массив А, состоящий из N целых чисел. Сжать массив, удалив из него все элементы, модуль которых…