Про матрицу

[kakawkin]

Вот тут делал парнишке программу так чтото невыходит(((

program tt;
const n=3;
var b:array[1..n,1..n] of integer;
    S,i,j:integer;
    Maxi,Max,Mini,Min:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    read(b[i,j]);
   writeln;
  end;
 Maxi:=1;
 Mini:=1;
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]>Max then
    begin
     Maxi:=i;
    end;
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]<Min then
    begin
     Mini:=i;
    end; 
 writeln('Максимальная строка = ',Maxi);
 writeln('Минимальная строка = ',Mini);
end.

Не как неможет найти строку с минимальным элементом

[nec117]

А что нужно сделать то? найти максимальный и минимальный элемент массива что ли?

[kakawkin]

прочитай мой пост полудше

Не как неможет найти строку с минимальным элементом

значит ты чертовски прав своим вопросом!

[nec117]

Ну держи.

program blabla;
uses crt;
type
mas = array [1..30,1..30] of integer;
{процедура поиска max, min}
procedure search(a:mas;n,m:integer;var max,min,imax,jmax,imin,jmin:integer);
var i,j:integer;
begin
max:=a[1,1];
jmax:=1; imax:=1;
min:=a[1,1];
jmin:=1; imin:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
    begin
     max:=a[i,j];
     imax:=i;
     jmax:=j
    end
else if a[i,j]<min then
    begin
     min:=a[i,j];
     imin:=i;
     jmin:=j
    end;
end;
 
{основная часть}
Var
a:mas;
n,m,j,i,mx,mn,imx,jmx,imn,jmn:integer;
begin
clrscr;
writeln('Введите размеры массива');
readln(n,m);
writeln('Введите ',n*m,' элементов массива');
For i:=1 to n do
For j:=1 to m do
read(a[i,j]);
readln;
clrscr;
writeln('Матрица:');
For i:=1 to n do
 begin
  For j:=1 to m do
  write(a[i,j]:4);
  writeln;
  end;         {ввод элементов массива}
search(a,n,m,mx,mn,imx,jmx,imn,jmn);
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:2);
writeln('Минимальный элемент  a[',imn,',',jmn,']=',mn:2);
readkey
end.

[kakawkin]

а если без процедуры то как будет выглядеть ?

[Consol]

program tt;
const n=3;
var b:array[1..n,1..n] of integer;
    S,i,j:integer;
    Maxi,Max,Mini,Min:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    read(b[i,j]);
   writeln;
  end;
 Maxi:=b[1,1];
 Mini:=b[1,1];
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]>Max then
    begin
     Max:=b[i,j];{номер строки то ты присваиваешь а значение нет}
     Maxi:=i;
    end;
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]<Min then
    begin
     Min:=b[i,j];{номер строки то ты присваиваешь а значение нет}
     Mini:=i;
    end; 
 writeln('Максимальная строка = ',Maxi);{наверное не минимальная строка, а строка с минимальным элементом}
 writeln('Минимальная строка = ',Mini);{не максимальная строка а строка с максимальным элементом}
end.

[kakawkin]

а ты её сам в действии пробовал ? неработает чёто(

[Consol]

program tt;
const n=3;
var b:array[1..n,1..n] of integer;
    S,i,j:integer;
    Maxi,Max,Mini,Min:integer;
begin
 for i:=1 to n do
  begin
   for j:=1 to n do
    read(b[i,j]);
   writeln;
  end;
 Maxi:=1;
 Mini:=1;
 Max:=b[1,1];
 Min:=b[1,1];
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]>Max then
    begin
     Max:=b[i,j];{номер строки то ты присваиваешь а значение нет}
     Maxi:=i;
    end;
 for i:=1 to n do
  for j:=1 to n do
   if b[i,j]<Min then
    begin
     Min:=b[i,j];{номер строки то ты присваиваешь а значение нет}
     Mini:=i;
    end; 
 writeln('Максимальная строка = ',Maxi);{наверное не минимальная строка, а строка с минимальным элементом}
 writeln('Минимальная строка = ',Mini);{не максимальная строка а строка с максимальным элементом}
end.

попробуй вот этот код он точно должен работать

[kakawkin]

воо, спс - пашет.
А то у меня максимальный и минимальный находило если писать отдельные программы токо - а вместе никак(((

[Consol]

А то у меня максимальный и минимальный находило если писать отдельные программы токо - а вместе никак(((

да просто ты забывал им присваивать значения и менять при определенных условиях