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
| uses crt;
Const
Rows=6;
Cols=6;
Type
myArray = array [1..Cols] of integer;
var
A : array [1..Rows,1..Cols] of integer;
KOLP, KOLO, KOLN: myArray;
i,j:byte;
ch: char;
data:integer;
Function Calc_Count (Rows, Col:byte; Param:integer):Byte;
var
i:byte;
Result:byte;
begin
Result:=0;
for i:=1 to Rows do
begin
if Param <0 then
inc (Result, Byte(A[i,Col]<0));
if Param =0 then
inc (Result, Byte(A[i,Col]=0));
if Param >0 then
inc (Result, Byte(A[i,Col]>0))
end;
Calc_Count:=Result
end;
Procedure Calc_Elements (var X,Y,Z:myArray);
var
i:byte;
begin
for i:=1 to Cols do
begin
X[i]:=Calc_Count (Rows,i,1);
Y[i]:=Calc_Count (Rows,i,-1);
Z[i]:=Calc_Count (Rows,i,0)
end
end;
begin
gotoxy (20,24);
Writeln ('Нажмите любую клавишу для продолжения ');
clrscr;
TextColor (White);
gotoxy (10,6);
TextColor (White);
Writeln (' Как желаете формировать исходный массив(6,6):');
Writeln ('1 – ручной ввод, 2 – программа сама сформирует данные ');
Writeln;
Repeat
ch:=Readkey;
until (ch='1') or (ch='2');
if ch='1' then
begin
for i:=1 to rows do
for j:=1 to cols do
begin
gotoxy (1,24);
write ('‚Введите элемент массива А[',i,',',j,']= ');
gotoxy (32,24);
read (A[i,j])
end
end
else
begin
Randomize;
for i:=1 to rows do
for j:=1 to cols do
begin
data:=Trunc (Random(1000));
if data<200 then
data:=-1*data;
if (data>400) and (data<600) then
data:=0;
A[i,j]:=data
end
end;
writeln;
Writeln ('Содержимое исходного массива А');
Writeln;
for i:=1 to Rows do
begin
for j:=1 to Cols do
Write ('A[',i,',',j,']=',A[i,j],' ');
Writeln
end;
Calc_Elements (KOLP, KOLO, KOLN);
Writeln;
Writeln ('Отчет по элементам столбцов');
Writeln;
Writeln (' Положительных Отрицательных Нулевых ');
for j:=1 to Cols do
Writeln ('Столбец ',j, ': ',KOLP[j], ' ',KOLO[j], ' ', KOLN[j] );
ch:=Readkey
end.
|
(
