есть такая задача.
В матрице A[1..N,1..M] определить минимальный элемент каждой строки. Вывести строку с максимальным минимумом.
Program n1;
Uses Crt;
const
n=4;
m=5;
k=4;
Var a:array[1..10,1..10] of integer;
b:array[1..10] of integer;
i,j,max,min,imax,imin:integer;
begin
Clrscr;
for i:=1 to m do
for j:=1 to n do begin
a[i,j]:=random(20);
end;
writeln('ìàòðèöà');
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j]:10);
for i := 1 to n do begin
min := MaxInt;
imin := 0;
for j := 1 to m do begin
read(a[i,j]);
if a[i,j] < min then begin
min := a[i,j];
imin := j;
end;
end;
if min > max then begin
min := max;
imax := i;
end;
end;
end;
writeln;
for i := 1 to m do begin
write(a[imax,i],' ');
end;
end;
readln;
readln;
end.
М | Просьба ознакомиться с http://forum.pascal.net.ru/rules.html (в том числе п.4) и соблюдать их. На этот раз я исправил сам |
Program n1;
const
n= 4;
m= 5;
Var
a: array[1..n,1..m] of integer;
i,j,min,imax,jmax: integer;
begin
Randomize;
for i:= 1 to n do for j:= 1 to m do a[i,j]:=random(20);
writeln('iao?eoa');
for i:= 1 to n do begin
for j:= 1 to m do write(a[i,j]:4);
WriteLn
end;
imax:= 1;
for i:= 1 to n do begin
min:= 1;
for j:= 2 to m do if a[i,j] < a[i,min] then min:= j;
if i=1 then jmax:= min
else if a[i,min] > a[imax,jmax] then begin
imax:= i;
jmax:= min
end
end;
writeln;
for j:= 1 to m do write(a[imax,j]:4);
readln;
end.