Ответ:
После «//» — комментарий (пояснение.)
Советую скопировать написанное в PascalABC и посмотреть там — так нагляднее.
program zadanie123;
const n=4; m=5; //можно заменить. n -кол-во строк, m -кол-во столбцов
var i,j,min: integer; //i счетчик по cтрокам, j счетчик по cтолбикам, min — минимальное значение, с которым будем сравнивать элементы массива, чтобы на его место встал самый маленький элемент.
a:array[1..n,1..m] of integer; //задаем двумерный массив
begin
writeln(‘Исходный массив:’);
for i:=1 to n do begin
for j:=1 to m do begin
A[i,j]:=random(45+65+1)-65; //диапазон [-65,45] зададим по формуле (b-a+1)+a, где b это 45, a это (-65)
write(A[i,j]:2,’; ‘);
end;
writeln; //Пропуск строчки. Нужен, чтобы массив отображался матрицей.
end;
writeln;
min:=10000;
writeln(‘Наименьший четный элемент = ‘);
for i:=1 to n do begin
for j:=1 to m do begin
if (a[i,j] mod 2=0)and (a[i,j]<min) then //mod 2 =0 это проверка четности. Если число четное и меньше min, оно занимает место переменной min.
min:=a[i,j];
end;
end;
write(min);
end.