ДАЮ 25 БАЛЛОВ!!!!!
Работа с Паскалем.
Найти минимальное и максимальное значение из четных чисел и записать их в файл output.txt

больше которого нет

но лучше напиши, что min:=a[1];

вот так да

а max:0 так и оставить?

да

Ответ в файле::::::::::::::::::::::::::::::::::::::::

var a:array[1..100000] of longint;i,n,max,min:longint;    begin      Assign(input,'input.txt');Reset(input);      Assign(output,'output.txt');Rewrite(output);     readln(n);min:=maxint;max:=0;      for i:= 1 to n do begin        readln(a[i]);        if a[i] mod 2 = 0 then begin         if a[i] > max then max:=a[i];        if a[i] < min then min:=a[i];        end;      end;      Writeln('min = ',min);      Writeln('max = ',max);     Close(input);Close(Output);    end.Например вводишь в файл input.txt512345он в файле output.txt вывидетmin = 2max = 4