25 ! работа с паскалем. найти минимальное и максимальное значение из четных чисел и записать их в файл output.txt

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

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

Типы сканеров:   ручной сканер  – для работы со сканером потребуется твёрдость руки и некоторый опыт. применяя сканер, вам придется вручную перемещать его по картинке. полоса изображения за один проход составляет 10 см, для появления всего изображения придется сделать два, три и более прохода. сканер применяется для сканирования сброшюрованных в книгу иллюстраций и документов. стоит такой сканер весьма дёшево. листовой сканер  – при наводящих роликов лист бумаги с картинкой проходит через специальную щель, что часто становится причиной искривления изображения при вводе. после скачивания лист выкидывается из сканера. барабанный сканер  – перед оцифровкой изображение фиксируется на ленту вращающегося барабана. оптическая система замечает мельчайшие тонкости цветовых переходов и детали цвета. стоят такие сканеры весьма дорого, подходят для коллективного пользования.

// pascalabc.net 3.3, сборка 1549 от 17.10.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк/столбцов в матрице: ');   writeln('*** исходная матрица ***');   var a: array[,] of integer;   repeat // обеспечить уникальность элементов       a: =matrrandom(n,n,-999,999)   until a.rows.selectmany(x-> x).distinct.count=n*n;   a.println(5); writeln(5*a.colcount*'-');   var jmin: =a.elementswithindexes.minby(t-> t[0])[2];   writeln(a.col(jmin).sum) end. пример количество строк/столбцов в матрице: 7 *** исходная матрица ***   666  963  808  847 -383 -453  695   -233 -460 -311  606 -487 -243  -29   479  438 -985  184  499    92  556   -54  819    38 -962  790 -411 -155   -320  525  340  390    76 -617 -747   -439  585  332 -654  495  602  372   551  229  906  837  480 -211 -438 1128