Question

Запиши программу на языке программирования Паскаль Дан двумерный массив 3 х 3. Составьте программу нахожденияминимального элемента и его номер строки и столбцаПомогите если знаете, заранее спасибо!

Answer 1

const

 n=3;

var

 a:array [1..n,1..n] of integer;

 mini,minj,i,j:integer;

begin

writeln('Матрица:');

mini:=1; minj:=1;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(51)-25;

         write(a[i,j]:4);

         if a[i,j]<a[mini,minj] then

           begin

             mini:=i;

             minj:=j;

           end;

       end;

     writeln;

   end;

 writeln('Мин.эл.[строка,столбец]: ',a[mini,minj],'[',mini,',',minj,']');

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!

Answer 2

Конечно! Вот пример программы на языке программирования Паскаль, которая находит минимальный элемент в двумерном массиве 3x3 и выводит его значение, а также номер строки и столбца:

pascalCopy code
program FindMinElement;

const
  N = 3;

type
  Matrix = array[1..N, 1..N] of Integer;

var
  array2D: Matrix;
  minElement, minRow, minColumn: Integer;
  i, j: Integer;

procedure FindMinElementInMatrix(var matrix: Matrix; var minValue, minRow, minColumn: Integer);
var
  row, column: Integer;
begin
  minValue := matrix[1, 1];
  minRow := 1;
  minColumn := 1;

  for row := 1 to N do
  begin
    for column := 1 to N do
    begin
      if matrix[row, column] < minValue then
      begin
        minValue := matrix[row, column];
        minRow := row;
        minColumn := column;
      end;
    end;
  end;
end;

begin
  writeln('Введите элементы двумерного массива 3x3:');

  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      readln(array2D[i, j]);
    end;
  end;

  FindMinElementInMatrix(array2D, minElement, minRow, minColumn);

  writeln('Минимальный элемент: ', minElement);
  writeln('Номер строки: ', minRow);
  writeln('Номер столбца: ', minColumn);

  readln;
end.

Программа просит пользователя ввести элементы двумерного массива размером 3x3 и затем использует процедуру FindMinElementInMatrix, чтобы найти минимальный элемент и его номер строки и столбца. Результат выводится на экран.