Question

Запиши программу на языке программирования Паскаль

Дан двумерный массив 3 х 3. Составьте программу нахождения

минимального элемента и его номер строки и столбца
Помогите если знаете, заранее спасибо!

Answer 1

const

 n=3;

var

 a:array [1..n,1..n] of integer;

 mini,minj,i,j:integer;

begin

writeln('Матрица:');

mini:=1; minj:=1;

 for i:=1 to n do

   begin

     for j:=1 to n do

       begin

         a[i,j]:=random(51)-25;

         write(a[i,j]:4);

         if a[i,j]<a[mini,minj] then

           begin

             mini:=i;

             minj:=j;

           end;

       end;

     writeln;

   end;

 writeln('Мин.эл.[строка,столбец]: ',a[mini,minj],'[',mini,',',minj,']');

end.

Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!