В заданном массиве найти все числа, меньшие заданного А - 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
*
Решение задачи: «В заданном массиве найти все числа, меньшие заданного А»
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;
Объяснение кода листинга программы
В данном коде используется цикл for, который начинается с i=1 и продолжается до n. Внутри цикла проверяется условие if mas[i]<a. Если это условие истинно, то увеличивается счетчик k на 1, переменной x присваивается значение mas[i], а затем происходит перебор всех элементов массива от i до k+1 с помощью цикла for. В результате, все элементы массива, меньшие заданного числа a, заменяются на x. После завершения внутреннего цикла, значение переменной mas[k] становится равным x.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д