прямоугольная матрица

[Avvakymova]

«в прямоугольной матрице размером m*n найдите наименьший элемент и выведите на экран строки,в которых этот элемент находится.размер исходной матрицы задаите самостоятельно. значения элементов матрицы задайте случайным образом.выведите на экран исходную матрицу,значение наименьшего элемента строки,содержащие этот элемент»

[rus12]

 const
  n=5;
  m=7;
 type
   matrica=array [1..n,1..m] of integer;
 var
   a:matrica;
   st,i,j,min:integer;
begin
   randomize;
     for I:= 1 to  n do
      begin
        for j:= 1 to m do
        a[i,j]:=random(100);
     end;
  for I:= 1 to  n do
   begin
      for j:= 1 to m do
      write(a[i,j]:5);
      writeln(' ');
  end;
  min:=a[1,1];
  for i:= 1 to n do
  begin
     for j:= 1 to m do
        if a[i,j]<min  then
        min:=a[i,j];
        st:=i;
   end;
   writeln(' min element=',min);
   writeln('stroka=',st);
 readln;
end.

Можно вопрос: вы блондинка?

[Avvakymova]

огромное спасибо!!!как вы пронецательны,да блондинка...была

[Mad_Cat]

rus12

Можно вопрос: вы блондинка?

да и ты имхо блондин)

выведите на экран исходную матрицу,значение наименьшего элемента,строки,содержащие этот элемент!

у тя не хватает как минимум цикла еще одного

for i:= 1 to n do
     for j:= 1 to m do
if a[i,j]=min then begin write(i,' ');break;end;
end;

так как надо выводить не первую строку с мин элементом а ВСЕ Строки его содержащие)

[rus12]

я специально задал такие размеры матрицы 5*7 и random(100) , чтобы снизить вероятность вероятность появления нескольких минимальных элементов.Если увеличить размеры матрицы действительно нужно добавить цикл.

[Avvakymova]

А почему он не правильно считает номер строки?

[Mad_Cat]

А почему он не правильно считает номер строки?

потому что бесплатно) посмотрите что ваш препод вам за остальные скажет)))

[Avvakymova]

Сообщение от Mad_Cat

потому что бесплатно) посмотрите что ваш препод вам за остальные скажет)))

Ой,спасибо тебе...остряк

[Mad_Cat]

Ой,спасибо тебе...остряк

на здоровье, мадам(хотя хз может и месье)
кстати в посте №4 написано чего надо дописать)