Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal]Двумерные массивы

Автор: maxg55 7.5.2007, 18:16

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

Пример:

Вводим массив размером 4x4

1 9 2 4
5 2 1 5
3 6 9 4
1 4 8 7

Ответ:
В столбике 1 max элемент 5 в строке 2
В столбике 2 max элемент 9 в строке 1
В столбике 3 max элемент 9 в строке 3
В столбике 4 max элемент 7 в строке 4

Вот пытался коечто делать.Но в моём коде мы размер массив и значения его элементов не вводим сами,а должны вводить сами.А также он не определяет в какой строке находится max элемент.
Помогите доделать задачку чтобы размер массива и значения его элементов мы вводили сами,а также чтоб определялась строка в которой расположен max элемент.

Код

uses crt;
Const N = 10;
      M = 10;
Type MyMas = array [1..N,1..M] of integer;
var ms : MyMas;
    i,j : Integer;
procedure Max (A : MyMas; stolbec : integer);
var max : integer;
 begin
     max := a[1,stolbec];
     for i := 1 to N do
     if ms[i, stolbec] > max then max := ms[i, stolbec];
     writeln ('V stolbike ', stolbec, ' max element ', max);
  end;
begin
Clrscr;
randomize;
 for i := 1 to N do
   begin
    for j := 1 to M do
          begin
            ms[i,j] := random(20)-5;
            write (ms[i,j]:4);
          end;
    writeln;
   end;
  for j:= 1 to M do max (ms, j);
readkey;
end.