: .
type, var. ,
Type tVect = array [1..10] of real48;
Var Ar: tVect;
var. , Var Ar: array [1..10] of real48;
10 real48, , . Ar[i] ( , 1 10). . .
11. n . , . .
Program Example_11;
{$APPTYPE CONSOLE}
Uses SysUtils;
type tVect = array[1..100] of integer;
Procedure InputAr(Var Ar:tVect; Var n:integer);
Var i:integer;
Begin
write(' : '); readln(n);
writeln(' : ');
for i:=1 to n do
read(Ar[i]);
Readln
end; {Input}
Var n,i,max,sum:integer;
Ar: tVect;
Begin
InputAr(Ar,n);
//
max:=Ar[1]; sum:=Ar[1];
for i:=2 to n do
if Ar[i]>max then
begin
max:=Ar[i];
sum:=Ar[i]
end
else if Ar[i]=max then
sum:=sum+Ar[i];
writeln(' = ',sum);
Readln
End.
(.5):
.5. ( 11)
Exit . Exit . xit .
12.
Procedure OutPut;
Begin
writeln ('22222'); Exit; writeln ('33333')
End; { OutPut}
Begin
writeln ('11111'); OutPut; Exit; writeln ('STOP'); : 11111
22222
Continue Break
Continue - , .
Break ( ).
13. . , .
|
|
Program Example_13;
{$APPTYPE CONSOLE}
Uses SysUtils;
Const N = 5;
Var vect: array [1..N] of integer;
i: byte;
mesage: boolean; { }
Begin
writeln (' ', N, ' :');
for i:= 1 to N do
begin
write ('vect[',i,'] = ');
readln (vect[i])
end;
mesage:= False; //
for i:= 1 to N do
begin
if vect[i] >= 0 then Continue; //
writeln (' = ',vect[i],' ',i);
mesage:= True; //
Break //
end;
if not mesage then writeln (' !!!');
readln
E nd.
(.6,.7):
.6. ( 13)
.7. ( 13)
. , :
- ( );
- ;
- .
. . , .
1. , N , . , .
2. , N , . , .
3. , N , . , , .
4. , N , . , , .
5. , N , . , , .
6. , N , . , , .
7. N . , .
|
|
8. N , . , , .
9. N , , . , , .
10. N , , . , , .
11. N , , . , , .
12. N , , . , , .
13. N , , . , , .
14. , N , : . , , .
15. , N , . , .
16. , N , . , , .
17. , N , . , , .
18. , N , : . , , .
|
|
19. , N , , M , . , , .
20. N , . , .
21. N , . , , .
22. N , , . , , .
23. N , , . , , .
24. N , , . , , .
25. N , , . , , , .