Question

Дана матрица А(nxn). Написать программу нахождения максимального элемента матрицы. решите пожалуйста! Паскаль.

Answer 1

Program n1;
const n=5;
var a: array[1..n,1..n] of integer;
i,max,j: integer;
begin
randomize;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=random(100);
write(a[i,j],' ');
end;
writeln;
end;
max:=a[1,1];
for i:=1 to n do for j:=1 to n do if a[i,j]>max then max:=a[i,j];
write('max=',max);
end.

Answer 2

Конечно! Вот пример программы на языке Pascal, которая находит максимальный элемент в матрице А(nxn):

pascalCopy code
program MaxElementMatrix;

const
  n = 3; // Задайте значение n, которое соответствует размеру матрицы

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

var
  A: Matrix;
  i, j, maxElement: Integer;

begin
  // Ввод элементов матрицы
  writeln('Введите элементы матрицы A:');
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      write('A[', i, ',', j, ']: ');
      readln(A[i, j]);
    end;
  end;

  // Находим максимальный элемент
  maxElement := A[1, 1];
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      if A[i, j] > maxElement then
        maxElement := A[i, j];
    end;
  end;

  // Выводим результат
  writeln('Максимальный элемент матрицы: ', maxElement);

  readln;
end.

Программа запрашивает у пользователя элементы матрицы A(nxn) и затем находит максимальный элемент с помощью двойного цикла. Результат выводится на экран. Обратите внимание, что значение n задается в программе как константа n = 3, но вы можете изменить это значение, чтобы адаптировать программу для матриц другого размера.