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

+ 0 -

D005ag94

12 июня 2015 г., 9:52:17 (8 лет назад)

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.

+ 0 -

Asdasdasdq

12 июня 2015 г., 10:53:35 (8 лет назад)

то есть на месте максиамальнго значения 0 должен быть или заменить строки и столбец на нули на пересечини которых оно стоит?