Учеба и наука
Решено
Паскаль - вопрос №255566
Дана действительная матрица размером n*m, все элементы которой различны. В каждой строке этой матрицы выбрать элемент с наименьшем значением, а затем среди них выбрать элемент с наибольшем значением. Указать индекс этого эл-та.
апрель 20, 2012 г.
-
Всего ответов: 1
-
program matr;
const n=5;
m=5;
var a:array[1..n,1..m] of real;
i,j,ni,nj,nni,nnj:integer;
min,max:real;
begin
writeln('введите элементы матрицы');
for i:=1 to n do
for j:=1 to m do
readln(a[i,j]);
max:=a[1,1]; nni:=1; nnj:=1;
for i:=1 to n do
begin
min:=a[i,1];ni:=i;nj:=1;
for j:=1 to m do
if a[i,j]
if min>=max then begin max:=min; nni:=i; nnj:=nj end;
end;
writeln('результат=', max:8:2);
writeln('строка=', nni);
writeln('столбик=', nnj);
readln
end.
Буду благодарна, если отметите.
Лучший ответ по мнению автора
Похожие вопросы