Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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]begin
min:=a[i,j];
end;
end;
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if a[i,j]=min then
k1:=k1+1;
end;
if k1>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.