Очень срочно Напишите программу которая находит минимальное и максимальное среди чётных положительных чисел, записенных в файле, и выводит результат в другой файл. Учтите что таких чисел может вообще не быть
Очень срочно
Напишите программу которая находит минимальное и максимальное среди чётных положительных чисел, записенных в файле, и выводит результат в другой файл. Учтите что таких чисел может вообще не быть
Гость
Ответ(ы) на вопрос:
Гостьconst
lim=2000000;
var
d,max,min:longint;
f:Text;
begin
Assign(f,'input.txt'); Reset(f);
max:=-lim; min:=lim;
while not Eof(f) do begin
Readln(f,d);
if (d>0) and (d mod 2=0) then
if maxd then min:=d;
end;
Close(f);
Assign(f,'output.txt'); Rewrite(f);
if min<>lim then Writeln(f,min,' ',max);
Close(f);
end.
Не нашли ответ?
Похожие вопросы