Определить минимальный элемент двумерного массива. Напечатать номер строки, содержащей максимальное число минимальных элементов, если такие имеются;)
Определить минимальный элемент двумерного массива. Напечатать номер строки, содержащей максимальное число минимальных элементов, если такие имеются;)
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы