В Паскале через двойной массив составить матрицу

@_Solniwko_ · Регистрация: 06.03.2011

Author24 — интернет-сервис помощи студентам

Добрый вечер.

Задание такое.

Надо составить программу,где в данной матрице надо найти элемент,который наибольший во всём ряду и наименьший во всей колонке,учитывая тот факт,что в матрице могут быть одинаковые элементы и если в ней несколько одинаковых элементов,то надо проверять каждый.

т.е. 452
163 ,будет 5,это наибольший элемент в ряду и наименьший в колонке,в ране это выдаётся как 1 ряд,2 колонка

Просто если элемент повторяется,то на экране он выдаст только первый элемент,а второй(повторный нет....)

Pascal

program masivs;
uses crt;
type mas=array [1..10,1..10] of integer;
var a:mas;
    i,j,k,m,n,max,maxj:integer;
    paz:boolean;
begin
clrscr;
     write ('Vvvedite razmer massiva ===> ');
     readln (m,n);
     for i:=1 to m do
         for j:=1 to n do begin
                          write ('Vvedite A (',i,',',j,') ===> ');
                          readln (a[i,j])
                          end;
     {najdite element, kotorij naibolwij v radu,no naimenwij v kolonne}
     writeln ('Iskomij element nahoditsa ');
     for i:=1 to m do begin
                      max:=a[i,1];
                      maxj:=1;
                      for j:=2 to n do if a[i,j]>max then begin
                                                          max:=a[i,j];
                                                          maxj:=j
                                                          end;
                      paz:=true;
                      for k:=1 to m do if a[k,maxj]<a[i,maxj] then paz:=false;
                      if paz then writeln (i,'. rad i  ',maxj,'. kolonna')
                      end;
     readln
end.

Добавлено через 37 минут
кто может помочь?????

	12.04.2011, 21:13