Вопрос № 89318: помогите пожалуйста с задачей
Пусть дана матрица размаром M x N, все элементы которой различны. В каждорй строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. укажите индексы найденного элемента....
Вопрос № 89.318
помогите пожалуйста с задачей
Пусть дана матрица размаром M x N, все элементы которой различны. В каждорй строке выберите элемент с наименьшим значением, затем среди этих чисел выберите наибольшее. укажите индексы найденного элемента.
Вот решение: const m=4; n=3;
var a:array [1..m, 1..n] of real;
i,j,imx,jmx,im,jm:integer;
begin
randomize;
{блок ввода данных организован при помощи генератора псевдослучайных чисел}
for i:=1 to m do
begin
for j:=1 to n do begin a[i,j]:=random(43);write(a[i,j]:6:1);end;
writeln;
end;
writeln;
{непосредственно блок, который выполняет условие задачи}
for i:=1 to m do
begin
im:=i; jm:=1;
for j:=2 to n do
if a[im,jm] > a[i,j] then begin im:=i; jm:=j;end;
if i=1
then begin imx:=im; jmx:=jm; end
else if a[imx,jmx] < a[im,jm] then begin imx:=im; jmx:=jm;end;
writeln(a[im,jm]:6:1); {выводим минимальный элемент строки}
end;
writeln('mx[',imx,',',jmx,']=',a[imx,jmx]:6:1); {выводим максимальный среди минимальных и его индексы}
end.
Good Luck!!!
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессор) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 30.05.2007, 20:41 Оценка за ответ: 5
