Предмет: Информатика,
автор: misterlukinov
Помогите пожалуйста с задачей.
Из исходного файла in.text в котором находятся 5 чисел найти наибольшее и наименьшее значение. И вывести его в другой текстовый файл в 1 строке минимальный во второй максимальный
Ответы
Автор ответа:
0
var a,min,max,i:integer
t1,t2:text;
begin
assign(t1,'in.txt');
reset(t1);
read(t1,min);
max:=min;
for i:=1 to 4 do
begin
read(t1,a);
if a<min then min:=a;
if a>max then max:=a;
end;
close(t1);
assign(t2,'out.txt');
rewrite(t2);
writeln(t2,min);
writeln(t2,max);
close(t2);
end.
Пример:
in.txt:
5 2 9 7 3
out.txt:
2
9
t1,t2:text;
begin
assign(t1,'in.txt');
reset(t1);
read(t1,min);
max:=min;
for i:=1 to 4 do
begin
read(t1,a);
if a<min then min:=a;
if a>max then max:=a;
end;
close(t1);
assign(t2,'out.txt');
rewrite(t2);
writeln(t2,min);
writeln(t2,max);
close(t2);
end.
Пример:
in.txt:
5 2 9 7 3
out.txt:
2
9
Похожие вопросы
Предмет: История,
автор: BezBab00000
Предмет: Математика,
автор: bleon4965
Предмет: Химия,
автор: alexsirotov692
Предмет: Математика,
автор: taeyon