Паскаль - вопрос №255566

Дана действительная матрица размером n*m, все элементы которой различны. В каждой строке этой матрицы выбрать элемент с наименьшем значением, а затем среди них выбрать элемент с наибольшем значением. Указать индекс этого эл-та.

Лучший ответ по мнению автора

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. 

Буду благодарна, если отметите. 

20.04.12
Лучший ответ по мнению автора

Еva

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store