Пусть дана вещественная матрица размером nxm, все элементы которой раз¬личны. в каждой строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. укажите индексы найденного эле¬мента. напишите программу в паскале аbc,,зачёт в четверг, нужно сделать, заранее )

Var  a: array[1..10, 1..10] of real;   n, m, i, j, i1, j1, i2, j2: byte;   min, max: real; begin  writeln('введите кол-во строк и столбцов');   read(n, m); writeln;   for i : = 1 to n do  begin    writeln('введите ', m, ' эл. ', i, '-й строки матрицы');     for j : = 1 to m do read(a[i, j]) end;   writeln('ваша матрица: ');   for i : = 1 to n do  begin    for j : = 1 to m do write(a[i, j]: 7: 2);     writeln end;   for i : = 1 to n do  begin    min : = a[i, 1]; i1 : = i; j1 : = 1;     for j : = 1 to m do     if a[i, j] < min then begin        min : = a[i, j]; i1 : = i; j1 : = j      end;       if i = 1 then    begin   max : = min; i2 : = i1; j2 : = j1    end    else    if min > max then    begin      max : = min; i2 : = i1; j2 : = j1    end  end;   writeln('максимальным из минимумов строк является элемент ', max: 6: 2, ' с индексами [', i2, ',', j2, ']'); end.

-,андрей!

-,паша!

-как у тебя дела?

-у меня всё хорошо,а ты как?

-у меня всё отлично. что спросил

-не за что.пойдёшь сегодня гулять?

-да,конечно.а во сколько?

-в 5 часов.

-хорошо.ладно пока.

пока.встретимся на улице

-хорошо.