Напишите программу на Паскале…

Напишите программу на Паскале, которая в двумерном массиве находит самое большое значение и элементы строки и столбца, на пересечении которых он стоит, делает нулевыми. Я начал решать, нашел максимальное значение в массиве, а вот дальше что-то не понял. Возьмите кол-во столбцов и строк по 5. Спасибо заранее.

в избранное

skymonk

09 марта 2023

Var max_i, max_j, j, columns, rows, i: integer; arr: array[1… 10,1… 10] of integer; Begin rows: =random (8)+2; columns: =random (8)+2; writeln (rows, columns); for i: =1 to rows do for j: =1 to columns do arr[i, j]: =random (100); for i: =1 to rows do begin writeln (); for j: =1 to columns do write (arr[i, j]: 3); end; writeln (); writeln (); max_i: =1; max_j: =1; for i: =1 to rows do for j: =1 to columns do if arr[max_i, max_j] < arr[i, j] then begin max_i: =i; max_j: =j; end; for i: =1 to rows do if i <> max_i then arr[i, max_j]: =0; for j: =1 to columns do if j <> max_j then arr[max_i, j]: =0; for i: =1 to rows do begin writeln (); for j: =1 to columns do write (arr[i, j]: 3); end; writeln (); writeln (); End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?