Помогите) Найти в матрице [4×4] наименьший элемент, и заменить все элементы матрицы...

Question

Помогите) Найти в матрице [4×4] наименьший элемент, и заменить все элементы матрицы меньше среднего арифметического min элементом (Паскаль).

Answer 1

Var
  matrix :array[1..4, 1..4] of integer;
  min, sum, i, j :integer;
begin
  min := maxint;
  sum := 0;
  for i:=1 to 4 do
    for j:=1 to 4 do
      read(matrix[i, j]);
  for i:=1 to 4 do
    for j:=1 to 4 do
    begin
      if matrix[i, j] < min then
        min := matrix[i, j];
      sum := sum + matrix[i, j];
    end;
  for i:=1 to 4 do
    for j:=1 to 4 do
      if matrix[i, j] < (sum / 16) then
        matrix[i, j] := min;
end.