Найти значение максимальных элементов матрицы, их индексы и количество - Pascal ABC

  1. Составьте программу нахождения значение максимального элемента двухмерного массива размером N x N. Вывести значение максимального элемента и все пары индексов (номер строки, номер столбца) элементов, равных максимальному элементу, и посчитать их количество.


textual

Код к задаче: «Найти значение максимальных элементов матрицы, их индексы и количество - Pascal ABC»

Const nmax=20;
Var A:array[1..nmax,1..nmax] of real;
    i,j,n,k:integer;
    max:real;
Begin
    Repeat
     write('Введите размерность матрицы: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    writeln('Введите ',n,'x',n,' чисел матрицы');
    For i:=1 to n do
     For j:=1 to n do
      read(A[i,j]);
    writeln('Матрица');
    For i:=1 to n do
    Begin
      For j:=1 to n do
       write(A[i,j]:7:2);
      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];
    writeln('Max = ',max:0:2);
    k:=0;
    write('Пары индексов: ');
    For i:=1 to n do
     For j:=1 to n do
      if A[i,j]=max then 
      Begin
        max:=A[i,j];
        write('A[',i,',',j,']',' ');
        k:=k+1;
      End;
    writeln;
    writeln('Всего пар = ',k);
End.

СДЕЛАЙТЕ РЕПОСТ

10   голосов, оценка 4.400 из 5



Похожие ответы
  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Заданы три квадратных уравнения: ax2 +bx+c=0, dx2 +fx+r=0, px2 +qx+k=0. Найти минимальное значение среди корней этих уравнений.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Ввести a>=1. Найти значение какого из выражений больше: 1/а чи sin(а). Проверьте пожалуйста.

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Посчитать значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Составить алгоритм и написать решение задачи на Паскале: Вычислить: где х - произвольное число, введенное пользователем с клавиатуры. Помогите пожалуйста! Решение желательно на уровне 10-11 класса.

  1. Вычислить функцию у = 2х^2 - 8Sinх (-2< х >3). Шаг изменения аргумента задавать с клавиатуры. Найти ее минимум и максимум. Вывести в виде таблицы результаты вычислений.