Question

Как найти в двумерном массиве наибольшее число этого массива? Паскаль(

Answer 1

Program RANETKI_ZNANIJA;const n=5;m=6; //размерность 5 на 6 (5 строк 6 столбцов)var a:array[1..n,1..m]of integer; //объявляешь двумерный массив 5 на 6    i,j,max:integer; //i и j - счетчики, max - максимальное числоbeginwriteln('Матрица:');for i:=1 to n do //цикл с вложенным циклом для заполнения массива случайными числами begin  for j:=1 to m do   begin    a[i,j]:=random(50); //заполняешь элементы массива числами от 0 до 50    write(a[i,j]:4); // :4 означает четыре пробела между числами   end;  writeln; //переход на новую строку end;writeln; //окончательный переход на новую строку{макс в строках}for i:=1 to n do begin  max:=a[i,1]; //присваиваешь переменной max значение элемента i-тая строка, первый столбец  for j:=1 to m do   begin    if a[i,j]>max then max:=a[i,j]; //сравниваешь каждый элемент массива с числом max                                    //если элемента массива больше чем max, то присваиваешь max этот элемент   end;  writeln('В строке ',i,' макс=',max); //выводишь номер строки и значение max end;{макс в столбцах}for j:=1 to m do // ОБРАТИ ВНИМАНИЕ что этот тот же цикл что и предыдущий, то теперь вместо j стоит i, а вместо i стоит j begin  max:=a[1,j];   for i:=1 to n do   begin    if a[i,j]>max then max:=a[i,j];   end;  writeln('В столбце ',j,' макс=',max); end;readln;end.

Answer 2

Объявляем массив a[NxM], maxv - максимальное значение
...
for I := 1 to n do
  for j := 1 to m do
    maxv := max(maxv, a[I,j]);
writeln(maxv);

Answer 3

Для поиска наибольшего числа в двумерном массиве в Паскале можно использовать следующий алгоритм:

1. Создайте переменную для хранения наибольшего числа и инициализируйте ее значением первого элемента массива. 2. Пройдитесь по всем элементам массива с помощью двух вложенных циклов. 3. Проверьте каждый элемент массива на то, больше ли он текущего значения наибольшего числа. Если да, то обновите значение переменной наибольшего числа. 4. После прохода по всем элементам массива, значение переменной наибольшего числа будет содержать наибольшее число из массива.

Пример кода на Паскале:

var
  arr: array[1..3, 1..3] of integer; // пример двумерного массива
  i, j, maxNum: integer;
begin
  // заполнение массива произвольными числами
  arr[1, 1] := 5;
  arr[1, 2] := 8;
  arr[1, 3] := 3;
  arr[2, 1] := 2;
  arr[2, 2] := 7;
  arr[2, 3] := 6;
  arr[3, 1] := 1;
  arr[3, 2] := 9;
  arr[3, 3] := 4;

maxNum := arr[1, 1]; // инициализация переменной наибольшего числа

// поиск наибольшего числа в массиве
  for i := 1 to 3 do
  begin
    for j := 1 to 3 do
    begin
      if arr[i, j] > maxNum then
        maxNum := arr[i, j];
    end;
  end;

writeln('Наибольшее число в массиве: ', maxNum);
end.

Этот код создает двумерный массив, заполняет его произвольными числами и затем находит наибольшее число в массиве с помощью описанного алгоритма.