Дана матрица A (N, M) найти номер строки и столбца (месторасположение) на пересечении которых стоит максимальный элемент и значение этого элемента
1. Составим графическую схему алгоритма
Да
    Да
   
 Да Нет
2. Составим таблицу соответствия переменных
3. В соответствии с пунктом 1 и пунктом 2 составляем программу на языке Pascal. Program Nomera; Var N, M, K, L, i, j: integer; Max: real; a: array [1..10, 1..10] of real; begin write (‘Введите число строк и столбцов’); readln (N, M); {Ввод значений элементов матрицы} for i: =1 to N do begin writeln (‘Введите’, i, ‘-ую строку‘); for j: =1 to M do begin read (A[i, j]); write (‘ ‘: 2) end; writeln end; K: =1; L: =1; Max: =a[1, 1]; for i: =1 to N do for j: =1 to M do if a[i, j]> max then begin max: =a[i, j]; K: =i; L: =j; End; writeln (‘Максимальный элемент а[‘, k, ‘, ’, L, ’)=’, max: 7: 3); readln end. ЗАДАНИЕ №2.
|
Нет
