Дана действительная матрица размера n x m, все элементы которой различны. в каждой строке выбирается элемент с наименьшим значением, затем среди этих чисел выбирается наибольшее. указать индексы элемента с найденным значением. нужен паскаль.

// pascalabc.net 3.2, сборка 1482 от 12.06.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   var a: =new real[n,m]; // создали матрицу   var s: =seqrandom(m,1000,9999).select(x-> x/100); // шаблон случайной строки   for var i: =0 to n-1 do a.setrow(i,s.toarray); // заполнили матрицу   writeln('*** исходная матрица [',n,',',m,'] ***');   a.println(6,2); writeln(6*a.colcount*'-');   // собственно, поиск нужного элемента   var r: =a.rows.select((x,i)-> (x.select((y,j)-> (y,j))       .minby(y-> y[0]),(x-> x[0][0]);   writeln('искомый элемент a[',r[1]+1,',',r[0][1]+1,']=',r[0][0]) end. пример количество строк в матрице: 4 количество столбцов в матрице: 7 *** исходная матрица [4,7] ***   95.22 17.16 14.35 66.27 20.10 91.88 67.96   20.80 32.71 45.44 35.80 20.17 58.59 24.22   93.03 93.99 18.30 75.80 65.47 97.14 56.24   16.95 73.12 48.54 75.72 91.90 67.95 95.71 искомый элемент a[2,5]=20.17

а где сама таблица? все равно она везде одинаковая, так что держите фрагмент ваш:

 

byck is my dog.

вот проверила, так работает. нормально?

 

program maxmin; var    a, b, c: integer;     max, min: integer; beginwriteln('введите три числа.'); read(a,b,c); {вводи числа через пробел}max: =a; if(b> max) then max: =b; if(c> max) then max: =c; min: =a; if(b< min) then min: =b; if(c< min) then min: =c; writeln('разность наибольшего и наименьшего чисел равна ',max-min); end.