:
Procedure ( );
Begin
End;
. . , , , Type . , , Var. , , Var - .
( ) :
( );
, , .
, , .
, .
1 2 . 1 11 1.
Procedure P1;
P1
Procedure P11
P11
Begin
P11
End;
Begin
P1
End;
Procedure P2;
P2
Begin
P2
End;
BEGIN
END.
, , . . , - , , . . . . GOTO .
, , .
1 2, 1 2 , . , .
|
|
|
 | |||
 | |||
 |
 | |||
 | |||
, : 1, 2, 1, 2, 1, 2.
Uses crt;
Type Tmas=array[1..1000] of integer;
Var M1, M2: Tmas;
K1, K2, Max1, Max2: integer;
{ }
Procedure Vvod(Var K:integer; Var M:Tmas);
Var i:integer;
Begin
Write(' ');
Readln(K);
Writeln(' , ');
For i:=1 to K do
Read(M[i]); readln;
End; { }
{ }
Procedure Poisk_max(K:integer; M:Tmas; Var Max:integer);
Var i:integer;
Begin
Max:=M[1]; { }
For i:=2 to K do
If M[i]>Max then Max:=M[i]; { }
End;
{ }
Begin
Clrscr;
Writeln(' ');
Vvod(K1, M1);
Writeln(' ');
Vvod(K2,M2);
Poisk_max(K1, M1, Max1);
Poisk_max(K2, M2, Max2);
If Max1>Max2 then writeln(' Max1 = ',Max1)
Else writeln(' Max2 = ',Max2);
Readkey; { }
End.
8
:
1.
7 : .
