В заданном массиве найти все числа, меньшие заданного А - Pascal ABC

Формулировка задачи:

В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива в той же последовательности, как они встречаются. Вывести полученный массив. *Формат входных данных В первой строке входного файла записаны через пробел два целых числа N и A (1≤N≤10 000, 0≤A≤1 000 000 000). Во второй строке через пробел записаны N целых неотрицательных чисел, не превосходящих 1 000 000 000. Формат выходных данных В выходной файл выведите полученный массив. Пример input.txt output.txt 4 5 1 2 3 4 1 2 3 4 5 6 9 7 5 3 1 5 3 1 9 7 *

Код к задаче: «В заданном массиве найти все числа, меньшие заданного А - Pascal ABC»

textual
k:=0;
for i:=1 to n do
if mas[i]<a then
 begin
  k:=k+1;
  x:=mas[i];
  for j:=i downto k+1 do
  mas[j]:=mas[j-1];
  mas[k]:=x;
 end;

15   голосов, оценка 4.067 из 5


СОХРАНИТЬ ССЫЛКУ