Записать в третий файл только те пары чисел, в которых число из первого файла меньше числа из второго

@ksuha90 · Регистрация: 29.10.2010

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

Помогите пожалуйста написать программу. Вот задание-Дано два файла, содержащих одинаковое количество целых чисел. Записать из них в третий файл только те пары чисел, в которых число из первого файла меньше соответствующего числа из второго.
Я вообще не понимаю как там и че....(((

@кот Бегемот · 29.10.2010, 01:23

Сообщение от ksuha90

Помогите пожалуйста написать программу. Вот задание-Дано два файла, содержащих одинаковое количество целых чисел. Записать из них в третий файл только те пары чисел, в которых число из первого файла меньше соответствующего числа из второго.
Я вообще не понимаю как там и че....(((

Pascal

var
f:text;
a,b:array[1..100]of integer;
i,n:integer;
begin
assign (f,'input1.txt');
reset(f);
while not eof(f)do
begin
inc(n);
read(f,a[n]);
end;
close(f);
assign (f,'input2.txt');
reset(f);
for i:=1 to n do
read(f,b[i]);
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
if a[i]<b[i] then write(f,a[i],' ',b[i],' ');
close(f);
end.

@ksuha90 0 / 0 / 0 Регистрация: 29.10.2010 Сообщений: 33
		1
	Записать в третий файл только те пары чисел, в которых число из первого файла меньше числа из второго 29.10.2010, 00:34. Показов 1832. Ответов 1 Метки нет (Все метки) Помогите пожалуйста написать программу. Вот задание-Дано два файла, содержащих одинаковое количество целых чисел. Записать из них в третий файл только те пары чисел, в которых число из первого файла меньше соответствующего числа из второго. Я вообще не понимаю как там и че....((( 0

	29.10.2010, 01:23

Записать в третий файл только те пары чисел, в которых число из первого файла меньше числа из второго

Решение