Создать двумерный массив! из случайных чисел от 1 до 30 создать массив размером m*n. вывести на экран индексы элементов массива.

program program1; vara: array [1..50,1..50] of integer; m,n,i,j: integer; beginrandomize; write('введите m: '); readln(m); write('введите n: '); readln(n); for i: =1 to m dobeginfor j: =1 to n dobegina[i,j]: =random(30)+1; write(a[ i, j ]: 5); end; writeln; end; end.

Сделать эту можно двумя способами. первый - чисто арифметический. второй - более хитрый, через операции над строками. мы пойдем вторым путем, он короче и практичней, такой код будет требовать меньше ресурсов машины для реализации (что незаметно в таких маленьких , но довольно критично в реальной жизни, поэтому учимся писать дальновидные коды). var n: longint; function mindigit(n: longint): integer; var s,a: string; c,i: integer; begin   str(n,s);   a: =s[1];   for i: =2 to length(s) do     if s[i]< a then a: =s[i];   val(a,n,c);   mindigit: =n; end; function maxdigit(n: longint): integer; var s,a: string; c,i: integer; begin   str(n,s);   a: =s[1];   for i: =2 to length(s) do     if s[i]> a then a: =s[i];   val(a,n,c);   maxdigit: =n; end; begin   readln(n);   writeln(mindigit(n),' ',maxdigit(n)); end.по факту переменную "c" можно убрать из функций и использовать вместо нее уже не нужную в конце "i", таким образом избавившись от одной переменной. но это не принципиально на самом деле, к тому же  так понятней, какая переменная за что отвечает.

Какого  вам  быть  миллиционером?   вам  нравится ваша  работа?   вам  давалось  ловить  приступников?   вы  много  работаете? мне  тяжело  работать  на  данный момент.  мне  нравится  своя  работа,  так  как  это  круто.  мне  давалось  арестовать  грабителя  музея  2  года  назад.  ловкий  был.  да,  так  как  много  дел,  мне  приходится  много  работать.