Question

найти максимальный элемент среди парных кратных 4 pascal

Answer 1

Ответ:

program fdjh;

uses crt;

var

 F:text;

 in_name, z:string;

 max,n,i,d:integer;

begin

 writeln('Введiть iм`я файлу');

 read(in_name);

 

 assign(F,in_name);

 rewrite(F);

 

 writeln('Введiть розмiр файлу');

 read(n);

 

 for i:=1 to n do

 begin

   d:=random(101)-25;

   z := inttostr(d);

   write(F,z+#13#10);

 end;

 close(F);

 

 reset(F);

 max := -25;

 while not eof(F) do

 begin

   readln(F,z);

   d := StrToINt(z);

   if (d > max) and (d mod 4 = 0) then

     max:=d;    

 end;

 

 if max = -25 then writeln('Максимальний кратний 4 в файлі не існує')

 else writeln('Максимальний кратний 4 = ',max);

 

 close(F);

end.