В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива

@Noderius · Регистрация: 24.08.2013

Студворк — интернет-сервис помощи студентам

я хочу научится программировать на FPC, но у меня появилась проблема. я начал немного экспериментировать с файлами, их использованием.так вот, ниже есть код программы

,

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
program stuff(input,output);
var i,j,a,k,n,l:LongInt;
mas:=array[1..10000]of LongInt;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n,a);
k:=0;
for i:=1 to  n do
read(mas[i]);
for i:=1 to n do begin
if mas[i]<a then begin
j:=mas[i];
k:=i;
l:=k;
for k:=l downto 1 do
mas[k]:=mas[k-1];
mas[1]:=j;
end;
end;
for i:=1 to n do
write(mas[i]:4);
close(input);
close(output);
end.

.

вот он. в конце выдает ошибку exited with exitcode=2. условие такое:В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива в той же последовательности, как они встречаются. Вывести полученный массив.В первой строке входного файла записаны через пробел два целых числа N и A (1 ≤ N ≤ 10 000, 0 ≤ A ≤ 1 000 000 000). Во второй строке через пробел записаны N целых неотрицательных чисел, не превосходящих 1 000 000 000.В выходной файл выведите полученный массив.
помогите новичку, пожалуйста

з.ы.сори, если я что не так сделал в форуме, еще новичок здесь)

@Samhain · 24.08.2013, 22:39

Noderius, В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива

@Puporev · 25.08.2013, 11:06

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
var
 Fin,Fout: Text;
 m:array[1..10000] of integer;
 n,a,i,j,k,x:integer;
begin
assign (fin,'input.txt');
reset (fin);
read (fin,n,a);//читаем n,a
for i:=1 to n do
read (fin,m[i]);//читаем массив
close(fin);
k:=0;//переставляем меньшие А вперед
for i:=1 to n do
if m[i]<a then
 begin
  k:=k+1;
  x:=m[i];
  for j:=i downto k+1 do
  m[j]:=m[j-1];
  m[k]:=x;
 end;
assign (fout,'output.txt');
rewrite (fout);
for i:=1 to n do //пишем результат
write(fout,' ',m[i]);
close(fout);
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Samhain 696 / 570 / 414 Регистрация: 31.03.2013 Сообщений: 1,029
	24.08.2013, 22:39
	Noderius, В заданном массиве найти все числа, меньшие заданного А, и переместить их в начало массива 0