uses crt;
var
a:array [1..100,1..100] of real;
n,m,k:integer;
begin
clrscr;
randomize;
write('N='); read(n);
write('M='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100)-50;
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:= 1 to n do
begin
k:=0;
for m:= 1 to m do
begin
if a[n,m]<0 then
k:=k+1;
end;
writeln('К<span>ол-во отрицательных элементов '</span><span>,n</span><span>,</span><span>' строки: '</span>,k);
end;
end.
Странно, что i и j нигде не участвуют в циклах
При x = 0
1 p = 1 * cos(0) = 1 * 1 = 1
2 p = 1 * cos(0) = 1 * 1 = 1
3 p = 1 * cos(0) = 1 * 1 = 1
4 p = 1 * cos(0) = 1 * 1 = 1
5 p = 1 * cos(0) = 1 * 1 = 1
6 p = 1 * cos(0) = 1 * 1 = 1
7 p = 1 * cos(0) = 1 * 1 = 1
8 p = 1 * cos(0) = 1 * 1 = 1
9 p = 1 * cos(0) = 1 * 1 = 1
10 p = 1 * cos(0) = 1 * 1 = 1
s = 0 + 1 = 1
===============================
11 p = 1 * cos(0) = 1 * 1 = 1
12 p = 1 * cos(0) = 1 * 1 = 1
13 p = 1 * cos(0) = 1 * 1 = 1
14 p = 1 * cos(0) = 1 * 1 = 1
15 p = 1 * cos(0) = 1 * 1 = 1
16 p = 1 * cos(0) = 1 * 1 = 1
17 p = 1 * cos(0) = 1 * 1 = 1
18 p = 1 * cos(0) = 1 * 1 = 1
19 p = 1 * cos(0) = 1 * 1 = 1
20 p = 1 * cos(0) = 1 * 1 = 1
s = 1 + 1 = 2
===============================
21 p = 1 * cos(0) = 1 * 1 = 1
22 p = 1 * cos(0) = 1 * 1 = 1
23 p = 1 * cos(0) = 1 * 1 = 1
24 p = 1 * cos(0) = 1 * 1 = 1
25 p = 1 * cos(0) = 1 * 1 = 1
26 p = 1 * cos(0) = 1 * 1 = 1
27 p = 1 * cos(0) = 1 * 1 = 1
28 p = 1 * cos(0) = 1 * 1 = 1
29 p = 1 * cos(0) = 1 * 1 = 1
30 p = 1 * cos(0) = 1 * 1 = 1
s = 2 + 1 = 3
===============================
31 p = 1 * cos(0) = 1 * 1 = 1
32 p = 1 * cos(0) = 1 * 1 = 1
33 p = 1 * cos(0) = 1 * 1 = 1
34 p = 1 * cos(0) = 1 * 1 = 1
35 p = 1 * cos(0) = 1 * 1 = 1
36 p = 1 * cos(0) = 1 * 1 = 1
37 p = 1 * cos(0) = 1 * 1 = 1
38 p = 1 * cos(0) = 1 * 1 = 1
39 p = 1 * cos(0) = 1 * 1 = 1
40 p = 1 * cos(0) = 1 * 1 = 1
s = 3 + 1 = 4
===============================
41 p = 1 * cos(0) = 1 * 1 = 1
42 p = 1 * cos(0) = 1 * 1 = 1
43 p = 1 * cos(0) = 1 * 1 = 1
44 p = 1 * cos(0) = 1 * 1 = 1
45 p = 1 * cos(0) = 1 * 1 = 1
46 p = 1 * cos(0) = 1 * 1 = 1
47 p = 1 * cos(0) = 1 * 1 = 1
48 p = 1 * cos(0) = 1 * 1 = 1
49 p = 1 * cos(0) = 1 * 1 = 1
50 p = 1 * cos(0) = 1 * 1 = 1
s = 4 + 1 = 5
===============================
51 p = 1 * cos(0) = 1 * 1 = 1
52 p = 1 * cos(0) = 1 * 1 = 1
53 p = 1 * cos(0) = 1 * 1 = 1
54 p = 1 * cos(0) = 1 * 1 = 1
55 p = 1 * cos(0) = 1 * 1 = 1
56 p = 1 * cos(0) = 1 * 1 = 1
57 p = 1 * cos(0) = 1 * 1 = 1
58 p = 1 * cos(0) = 1 * 1 = 1
59 p = 1 * cos(0) = 1 * 1 = 1
60 p = 1 * cos(0) = 1 * 1 = 1
s = 5 + 1 = 6
===============================
61 p = 1 * cos(0) = 1 * 1 = 1
62 p = 1 * cos(0) = 1 * 1 = 1
63 p = 1 * cos(0) = 1 * 1 = 1
64 p = 1 * cos(0) = 1 * 1 = 1
65 p = 1 * cos(0) = 1 * 1 = 1
66 p = 1 * cos(0) = 1 * 1 = 1
67 p = 1 * cos(0) = 1 * 1 = 1
68 p = 1 * cos(0) = 1 * 1 = 1
69 p = 1 * cos(0) = 1 * 1 = 1
70 p = 1 * cos(0) = 1 * 1 = 1
s = 6 + 1 = 7
===============================
71 p = 1 * cos(0) = 1 * 1 = 1
72 p = 1 * cos(0) = 1 * 1 = 1
73 p = 1 * cos(0) = 1 * 1 = 1
74 p = 1 * cos(0) = 1 * 1 = 1
75 p = 1 * cos(0) = 1 * 1 = 1
76 p = 1 * cos(0) = 1 * 1 = 1
77 p = 1 * cos(0) = 1 * 1 = 1
78 p = 1 * cos(0) = 1 * 1 = 1
79 p = 1 * cos(0) = 1 * 1 = 1
80 p = 1 * cos(0) = 1 * 1 = 1
s = 7 + 1 = 8
===============================
81 p = 1 * cos(0) = 1 * 1 = 1
82 p = 1 * cos(0) = 1 * 1 = 1
83 p = 1 * cos(0) = 1 * 1 = 1
84 p = 1 * cos(0) = 1 * 1 = 1
85 p = 1 * cos(0) = 1 * 1 = 1
86 p = 1 * cos(0) = 1 * 1 = 1
87 p = 1 * cos(0) = 1 * 1 = 1
88 p = 1 * cos(0) = 1 * 1 = 1
89 p = 1 * cos(0) = 1 * 1 = 1
90 p = 1 * cos(0) = 1 * 1 = 1
s = 8 + 1 = 9
===============================
91 p = 1 * cos(0) = 1 * 1 = 1
92 p = 1 * cos(0) = 1 * 1 = 1
93 p = 1 * cos(0) = 1 * 1 = 1
94 p = 1 * cos(0) = 1 * 1 = 1
95 p = 1 * cos(0) = 1 * 1 = 1
96 p = 1 * cos(0) = 1 * 1 = 1
97 p = 1 * cos(0) = 1 * 1 = 1
98 p = 1 * cos(0) = 1 * 1 = 1
99 p = 1 * cos(0) = 1 * 1 = 1
100 p = 1 * cos(0) = 1 * 1 = 1
s = 9 + 1 = 10
===============================
10
Begin
writeln (' .--I"""""""""":');
writeln (' / - I..............\');
writeln ('"-O-""""""O"O""-');
end.
<u><em>НАЗЕМНЫЙ</em></u>
<em>Безрельсовый</em>
автомобили;
троллейбусы;
мотоциклы;
мотороллеры;
мопеды;
велосипеды; краны; тракторы;
экскаваторы; упряжки; телеги;
сани; снегоходы; болотоходы;
вездеходы; самокаты; коляски.
<em>Рельсовый</em>
- железнодорожный;
-трамваи;
- дрезины;
- вагонетки;
- монорельсовый.
<u><em>ВОДНЫЙ</em></u>
<em>морской речной подводный</em>
теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке.
теплоходы; катера; танкеры; сухогрузы; паромы; баржи; буксиры; контейнеровозы; лихтеровозы; сейнеры; ледоколы; парусный; гребной; плоты; катамараны; на воздушной подушке. подводные лодки;
батискафы;
батисферы.
<u><em>ВОЗДУШНЫЙ</em></u>
- самолеты;
- вертолеты;
- гидропланы;
- планеры;
- дельтопланы;
дирижабли;
воздушные шары.
<u><em>СПЕЦИАЛЬНЫЙ</em></u>
- метро;
- эскалаторы;
- лифты;
- подъемники;
- канатные дороги;
- транспортеры;
трубопроводы;
- транспорт войск и спецформирований.