Задача на матрицы (Pascal)

Posted by obzor under Delphi

Дана матрица А (m,n), элементы которой целые числа. Напишите программу, которая находит и выводит на экран наименьший элемент матрицы, а так же номер строки и номер столбца, соответствующие этому элементу.

newerow1989

const m=10;
      n=8;
var a:array[1..m,1..n] of byte;
    i,j,i1,j1,min:byte;
begin
   Randomize;
   For i:=1 to m do
   begin
      For j:=1 to n do
      begin
         a[ i,j]:=Random(210);
         Write(a[ i,j],'  ');
      end;
      Writeln;
   end;
   i1:=1;
   j1:=1;
   min:=a[i1,j1];
   For i:=1 to m do
      For j:=1 to n do
         If min>a[ i,j] then
         begin
            i1:=i;
            j1:=j;
            min:=a[i1,j1];
         end;
   Writeln('a[',i1,',',j1,'] = ',min);
   Readln;
end.

тема на форуме

Похожие статьи

• Способы передачи параметров в подпрограммы в Delphi
• Описать функцию Pi(eps), вычисляющую значение числа Пи по формуле
• Вычислить методом касательных (Pascal)
• Поиск заданного числа в квадратной матрице
• Транспонирование целочисленной матрицы
• Ввести номер одного из друзей и вывести его имя (задача на записи)
• Найти сумму элементов массива, стоящих после последнего нулевого элемента
• Вычисление формулы с произведениями
• Можно ли среди чисел массива найти две разных пары чисел, суммы которых одинаковы?
• Определить, является ли массив «магическим квадратом»