Question

Дана целочисленная матрица размера 5 на 5. Найти минимальный элемент

Answer 1

Program min_elem;
 var a:array[1..5,1..5] of integer;
        min, i, j: integer;
begin
  {ввод матрицы}
   for i:=1 to 5 do
    for j:=1 to 5 do  read(a[i]);
  {решение задачи}
    min:=a[1, 1];
      for i:=1 to 5 do
       for j:=1 to 5 do 
        if a[i,j] < min then min:=a[i,j];
        write('min=', min)
end.