.
. . .
., :50 | 40 | 10 | 20 || 30 | 7 | . . , . , ( ) :
40 | 50 | 10 | 20 || 30 | 7 |
, 2- 3- , , 3- . , , ca :
40 | 10 | 20 | 30 || 7 | 50 |19
.
.
(n-1)- .
- . . . , ? [ j ] > A [j+1]
A[j] < A[j+1]., - . , , ,
, .
program sort;
const n=7;
a:array[1..n] of real=(50,40,10,20,30,5,7);
var i,j,k:integer; r:real;
begin
for i:=1 to n-1 do { ""
1- (n-i+1)- }
for j:=1 to n-i do
if a[j]>a[j+l] then { }
begin
r:=a[j+1]; {}
a[j+1]:=a[j];
a[j]:=r;
end;
{ }
for k:=1 to n do Write(a[k]:9:4,'|'); end.
()
Program mas2;
var : array [1.. 3, 1..5] of Integer;
i, j: integer;
begin
for i:= 1 to 3 do
for j:= 1 to 5 do
begin
writeln( B[, i, ,, j, ]);
readln (B[i, j ]);
end;
End.
Program mas2;
var : array [1.. 3, 1..5] of Integer;
i, j: integer;
begin
for i:= 1 to 3 do
for j:= 1 to 5 do
begin
writeln( B[, i, ,, j, ]=);
read (B[i, j ]);
end;
End.
()
|
|
|
max ()
, .
, . -
, , , . .
VAR A: ARRAY [1..5, 1..5] OF REAL.
, 5- A[5, 1].
3 × 5 -
.
PROGRAM Maximum;
VAR i, j: Integer;
M: ARRAY [1..3, 1..5] OF Real;
max: Real;
BEGIN
FOR i:=1 TO 3 DO
FOR j:=1 TO 5 DO
BEGIN
WRITE('M[',i,',',j,']=');
READLN(M[i,j]);
END;
max:=M[1,1];
FOR i:=1 TO 3 DO
FOR j:=1 TO 5 DO
IF M[i,j]<max THEN max:=M[i,j];
WRITELN(' =', max:7:4);
END.
