Найти максимальный элемент матрицы и вывести на экран - Pascal

Узнай цену своей работы

Формулировка задачи:

Дан целочисленный массив 10 на 10. Найти максимальный элемент и вывести на экран a[i,j]=(максимальное число).

Решение задачи: «Найти максимальный элемент матрицы и вывести на экран»

textual
Листинг программы
const n=10;
var a:array  of array of integer;
i,j,maxij,maxi,maxj:integer;
begin
randomize;
setlength(a,n,n);
for i:=0 to n-1 do
begin
writeln;
 for j:=0 to n-1 do
 begin
  a[i,j]:=Random(100)-50;
  write(a[i,j],' ');
  end;
  end;
  writeln;
for i:=0 to n-1 do
 for j:=0 to n-1 do
  if a[i,j]>maxij then begin maxij:=a[i,j]; maxi:=i; maxj:=j; end;
 writeln('a[',maxj+1,',',maxi+1,'] = ',maxij);
 readln;  //писал на delphi console
 end.    //так что возможны ошибки

Объяснение кода листинга программы

  1. Объявляется константа n со значением 10.
  2. Объявляются переменные a (массив массивов целых чисел), i, j, maxij, maxi, maxj, все эти переменные имеют тип integer.
  3. Randomize используется для инициализации генератора случайных чисел.
  4. Используется функция Setlength для установки размера массива a на n x n.
  5. Выполняется вложенный цикл начинающийся с i от 0 до n-1, а затем вложенный цикл, начинающийся с j от 0 до n-1 для заполнения матрицы случайными числами.
  6. В первом цикле выводится каждый элемент массива a на экран.
  7. Затем выполняется проверка каждого элемента матрицы a, чтобы найти максимальный в переменной maxij. Если элемент больше текущего значения maxij, оно заменяется, и также сохраняются индексы строки и столбца с максимальным элементом.
  8. Выводятся координаты и значение максимального элемента a[maxj+1][maxi+1] = maxij на экран.
  9. Считывается ввод с клавиатуры с помощью функции readln.
  10. Программа завершается (end). Примечание: код написан на языке Pascal.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы