Pascal
, , , writeln (' :').
- Pascal :
for i:=1 to n do
Begin
for i:=1 to n do begin
a[i,j]:=random(21)-5;
write(a[i,j]:4); end;
writeln;
End;
writeln;
write (a [ i, j ]:4) , 4 .
writeln . , .
writeln .
. .
, , , writeln (' '). .
, , :
min:=a[1,1];
imin:=1;
for j:=1 to m do
Begin
minst:=a[1,j];
for i:=2 to n do
if a[i,j] < minst
then
minst:=a[i,j];
write(minst:4);
write (minst:4) .
if minst < min then begin min:= minst; imin:= j end. . , .
min:=a[1,1];
imin:=1;
for j:=1 to m do
if minst < min then
Begin
min:= minst;
imin:= j
End;
End;
Writeln;
writeln (' ', min);
writeln (' ', imin);
Writeln;
.
for i:=1 to n -1 do , , . i +1 n - (for j:= i +1 to n do). (if a [ i, imin ] > a [ j, imin ]), . , , k. k (k:= a [ i, imin ]), (a [ i, imin ]:= a [ j, imin ]), k (a [ j, imin ]:= k).
|
|
:
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,imin] > a[j,imin] then
Begin
k:=a[i,imin];
a[i,imin]:=a[j,imin];
a[j,imin]:=k;
End;
:
for i:=1 to n do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
write (a [ i, j ]:4) .
Program Var_14;
Uses crt;
Const n=4; m=5
Var a: array[1..n, 1..m] of integer;
i, j, k, min, imin, minst: integer;
Begin
Clrscr; randomize;
Writeln(' :');
For i:=1 to n do
Begin
for i:=1 to n do begin
a[i,j]:=random(21)-5;
write(a[i,j]:4); end;
writeln;
End;
Writeln;
Writeln(' ');
min:=a[1,1]; imin:=1;
For j:=1 to m do
Begin
minst:=a[1,j];
for i:=2 to n do if a[i,j] < minst then minst:=a[i,j];
write(minst:4);
if minst < min then begin min:= minst; imin:= j end;
End;
Writeln;
Writeln(' ', min);
Writeln(' ', imin);
Writeln;
For i:=1 to n-1 do
for j:=i+1 to n do
if a[i,imin] > a[j,imin] then
begin k:=a[i,imin]; a[i,imin]:=a[j,imin]; a[j,imin]:=k; end;
Writeln;
Writeln(' ', imin, ' ');
For i:=1 to n do
Begin
for i:=1 to n do write(a[i,j]:4);
Writeln;
End;
End.
.
4