Версия для печати темы

Автор: Flare 27.11.2005 17:43

Задача: Составить программу нахождения максимального элемента в каждом столбце и минимального в каждой строке квадратной матрицы.

Снова нужна ваша помощь.. сомневаюсь, что делаю правильно.. (

const
n=100; m=100;
var
a:array[1..n,1..m] of real;
min,max,n1,m1,i,j:integer;
begin
write('введите размерность:');
readln(n1,m1);
for i:=1 to n1 do
for j:=1 to m1 do
                      begin
                         write('a[',i,',',j,']=');
                         readln(a[i,j]);
                      end;
for i:=1 to n1 do
                      begin
                        min:=a[i,1];
                        for j:2 to m1 do
                          begin
                          if a[i,j]<min then 
                                             begin
                                               min:=a[i,j];
                                               writeln(min);
                                             end;
                           end;
                        end;
for j:=1 to m1 do
                         begin
                            max:=a[1,j];
                            for i:=:2 to n1 do
                          begin
                          if a[i,j]>max then 
                                             begin
                                               max:=a[i,j];
                                               writeln(max);
                                             end;
                            end;
                         end;
end.

СПАСИБО!!!

Автор: volvo 27.11.2005 17:59

Flare,
если матрица квадратная, зачем нужны 2 измерения?

const
  n=100;
var
  a:array[1..n, 1..n] of real;
  min,max: real;
  n1,i,j:integer;

begin
  write('введите размерность:' ); readln(n1);
  for i:=1 to n1 do
    for j:=1 to n1 do begin
      write('a[',i,',',j,']='); readln(a[i,j]);
  end;

  for i:=1 to n1 do begin
    min:=a[i,1];
    for j:=2 to n1 do
      if a[i,j]<min then min:=a[i,j];
    writeln('min в строке #', i:2, ' = ', min:10:5);
  end;

  for j:=1 to n1 do begin
    max:=a[1,j];
    for i:=2 to n1 do
      if a[i,j]>max then max:=a[i,j];
    writeln('max в столбце #', j:2, '= ', max:10:5);
  end;
end.

Автор: Guest 27.11.2005 18:08

Спасибо!!!! БОЛЬШОЕ- ПРЕБОЛЬШОЕ!!!!