1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
| program Project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes, SysUtils, CustApp, Math
{ you can add units after this };
type
{ TMyApplication }
TMyApplication = class(TCustomApplication)
protected
procedure DoRun; override;
public
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
procedure WriteHelp; virtual;
end;
{ TMyApplication }
procedure printarray(s:string;t:array of integer);
var
i:integer;
begin
writeln(s);
write('[');
for i:=low(t) to high(t)-1 do write(t[i],',');
writeln(t[high(t)],']');
end;
procedure Swap(var t1,t2:integer);
var
t:integer;
begin
t:=t1;
t1:=t2;
t2:=t;
end;
procedure TMyApplication.DoRun;
var
ErrorMsg: String;
n,i,k:integer;
a:array of integer;
s:int64;
b:boolean;
begin
// quick check parameters
ErrorMsg:=CheckOptions('h','help');
if ErrorMsg<>'' then begin
ShowException(Exception.Create(ErrorMsg));
Terminate;
Exit;
end;
// parse parameters
if HasOption('h','help') then begin
WriteHelp;
Terminate;
Exit;
end;
{ add your program here }
randomize;
write('n=');readln(n);
setlength(a,n);
for i:=0 to n-1 do a[i]:=random(21)-10;
printarray('A:',a);
{1}
s:=0;b:=false;
for i:=0 to n-1 do
if odd(a[i]) then begin
s:=s+a[i];
b:=true;
end;
if b then writeln('s=',s) else writeln('Нет нечетных чисел');
{2}
write('a=');readln(k);
b:=false;
writeln('{2}:');
for i:=0 to n-1 do
if a[i]>k then begin
write(' ',i+1);
b:=true;
end;
if not b then writeln('Нет чисел больших ',k) else writeln;
{3}
writeln('{3}');
b:=false;
if k<>0 then
for i:=0 to n-1 do
if (a[i]>0) and (a[i] mod k=0) then begin
write(' ',a[i]);
b:=true;
end;
if not b then writeln('Нет положительных чисел кратных ',k);
readln;
// stop program loop
Terminate;
end;
constructor TMyApplication.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
StopOnException:=True;
end;
destructor TMyApplication.Destroy;
begin
inherited Destroy;
end;
procedure TMyApplication.WriteHelp;
begin
{ add your help code here }
writeln('Usage: ',ExeName,' -h');
end;
var
Application: TMyApplication;
begin
Application:=TMyApplication.Create(nil);
Application.Title:='My Application';
Application.Run;
Application.Free;
end. |
(
