Определить минимальный элемент двумерного массива. Напечатать номер строки, содержащей максимальное число минимальных элементов, если такие имеются;)

Определить минимальный элемент двумерного массива. Напечатать номер строки, содержащей максимальное число минимальных элементов, если такие имеются;)
Гость
Ответ(ы) на вопрос:
Гость
var a:array[1..1000,1..1000] of integer; i,j,n,m,min,k,k1,str:integer; begin writeln('Vvedite razmernost massiva NxM'); readln(n); readln(m); for i:= 1 to n do begin for j:= 1 to m do begin write('a[',i,',',j,']:='); read(a[i,j]); end; end; min:=a[1,1]; for i:=1 to n do for j:=1 to m do begin if a[i,j]k then begin k:=k1; str:=i; end; end; writeln('Stroka s max kolich min elementov: ',str); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:10); writeln; end; end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы