матрица,паскаль

[albina230493]

Дана матрица N*M,состоящая из натуральных чисел.Найти в ней наименьший элемент и определить его местоположение.Если таких элементов несколько,то вывести на экран положение нескольких из них.

[Hacker19_90]

Альбиночка!
Форум - это не решебник лабараторных!
Здесь вам помогут основываясь на вашем коде, в противном случае тему чаще всего просто закрывают!
Учтите это на будущее!

program example2;
uses
    crt;
const
    n = 5;
    m = 6;
var
    mas: array[1..n, 1..m] of integer;
    min, i, j: integer;
begin
    clrscr;
    Writeln ('Ваша матрица:');
    for i := 1 to n do
    begin
        for j := 1 to m do
        begin
            mas[i,j] := random(101) - 50;
            Write (mas[i,j]:4);
        end;
        Writeln;
    end;
    min := mas[1,1];
    for i := 1 to n do
        for j := 1 to m do
            if mas[i,j] < min then min := mas[i,j];
     Writeln ('минимальный элемент это ', min:4);
     Writeln ('Его позиция: ');
     for i := 1 to n do
         for j := 1 to m do
              if mas[i,j] = min then
                   Writeln (i, ' строка ', j, ' столбец'); 
    ReadKey;   
end;

[albina230493]

спасибо,учту на будущее)))