Ответ: больше которого нет
Ответ: но лучше напиши, что 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