Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице?

@manlee · Регистрация: 08.03.2014

Что меньше: наименьший элемент L-ой строки, или наибольший элемент K-ого столбца в матрице размером 5х4 ?

Cтолкнулся с проблемой, что если последний элемент матрицы (нижний, правый) является минимальным, то оно его и выводит как минимальный в независимости от заданной строчки. Я понимаю, что просто неправильно присвоил начальный елемент перед поиском... Как тут быть? В целом программа работает.

Pascal

 var
 a : array [1..10,1..10] of real;
 i,j,l,k: integer;
 min,max: real;
 begin
 
 for i:=1 to 5 do
 for j:=1 to 4 do
 a[i,j]:=random(0,100);
 
 writeln('В матрице:'); writeln;
 for i:=1 to 5 do begin
 for j:=1 to 4 do
 write(a[i,j]:7:2,' ');
 writeln;
 end;
 writeln;
 
 Writeln('Выберите K-ый столбец и L-ую строку'); 
  readln(k,l);
 
 max:=a[i,j]-1;
 min:=a[i,j]+1;
 for i:=1 to l do
  for j:=1 to k do
   begin
   
     if A[i,j]>max then max:=A[i,k];
    if min>A[l,j] then min:=A[l,j];
   end;
   
    
Writeln('Максимальный элемент = ',max:4:2);
 Writeln('Минимальный элемент = ',min:4:2);
 writeln;
 if min<max then writeln('Min элемент L-ой строки Меньше') else
 writeln('Max элемент K-ой строки Меньше')
 
 end.

@Puporev · 23.05.2015, 14:57

Pascal

const m=5;
      n=4;
var  a : array [1..m,1..n] of real;
     i,j,l,k: integer;
     min,max: real;
begin
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10*random;
    write(a[i,j]:7:2);
   end;
  writeln;
 end;
Writeln('Выберите K-ый столбец и L-ую строку');
readln(k,l);
min:=a[l,1];
for i:=2 to n do
if a[l,i]<min then min:=a[l,i];
writeln('Минимальный элемент в строке ',l,'=',min:0:2);
max:=a[1,k];
for i:=2 to m do
if a[i,k]>max then max:=a[i,k];
writeln('Максимальный элемент в столбце ',k,'=',max:0:2);
if min<max then writeln('Min элемент L-ой строки Меньше') else
writeln('Max элемент K-ой строки Меньше')
end.

Опции темы