Напишите программку, которая находит малое и максимальное посреди чётных положительных

Ответ:

Напишите программку, которая обретает малое и максимальное

посреди чётных положительных чисел, записанных в файле,

и выводит результат в другой файл.

var f:text;

 min, max,a :integer;

 find:boolean;есть/нет числа удовлетворяющие условию

begin

 assign(f,'dan.txt'); reset(f);

 min:=0; max:=0;

 find:=false;

 while not eof(f) do

 begin

 read(f,a);

 if not find and (agt;0) and (a mod 2=0) then

 begin

  min:=a; find:=true;

 end

 else

 if find and (agt;0) and (a mod 2=0) and (mingt;a) then

  min:=a;

 if (agt;0) and (a mod 2=0) and (maxlt;a) then

  max:=a;

 end;

 close(f);

 assign(f,'res.txt');

 rewrite(f);

 if max=0 then writeln(f,'чётных положительных чисел нет')

 else

  writeln(f,'min посреди чётных положительных чисел =',min, chr(13),

     'max среди чётных положительных чисел нет',max);

 close(f);

end.

Подробнее - на Znanija.com - znanija.com/task/12091661readmore

Изъясненье: