Подсчитать количество положительных элементов массива

@house_step · Регистрация: 30.10.2010

Студворк — интернет-сервис помощи студентам

помогите решить задачки
1.Определите на какой день недели приходиться некоторая дата (например: 20 января 1983г.)
2.Подсчитать количество положительных элементов массива.
3.В тексте, содержащем несколько (много) предложений, найти все вхождения заданного слова и распечатать все ключевые его предложения. Принять, что каждое предложение заканчивается точной.

@Puporev · 12.11.2010, 14:16

Сообщение от house_step

на какой день недели приходиться некоторая дата (

Для этого нужно задать день какой-то даты, от чего плясать, да и неплохо бы допустимый интервал годов, а то только с 1 по 1917 годы столько раз меняли календарь.....

@house_step · 12.11.2010, 14:18 **[ТС]**

20 января 1983г.).

@Давид · 12.11.2010, 14:19

Вторая!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,k:integer;
begin
clrscr;
writeln ('kol - vo elementov = ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
k:=0;
for i:=1 to n do
 if x[i]>0 then 
 k:=k+1;
Writeln ('Количество =  ',k);
Readln
end.

@Puporev · 12.11.2010, 14:37

20 января 1983г.).

Это нужно узнать какой будет день недели, но для этого нужно знать день недели в какой-то другой, боле ранний день, типа
-если известно что 1 января 1900 года был понедельник(это я так просто для примера).

@house_step · 12.11.2010, 14:40 **[ТС]**

Сообщение от Puporev

Это нужно узнать какой будет день недели, но для этого нужно знать день недели в какой-то другой, боле ранний день, типа
-если известно что 1 января 1900 года был понедельник(это я так просто для примера).

17января 1983(понедельник)

@Shelovek · 12.11.2010, 20:34

вот 1-я на счет даты

Pascal
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
uses
    crt;
type
    m=(jan,feb,mar,apr,may,jun,jul,aug,sep,oct,nov,dec);
    dn=(vos,pon,vto,sre,shet,p9t,subb);
    data=record
               den:1..31;
               mes9c:m;
               god:word;
         end;
var
   t1:data;
   prov,t,vih:Boolean;
   n:1..12;
   dt:dn;
   d1,m1,g:word;
   ch:char;
procedure vivod(d:byte);
begin
     textcolor(yellow);
     case d of
          0:begin
                 dt:=vos;
                 writeln('voskresenie');
            end;
          1:begin
                 dt:=pon;
                 writeln('ponedelnik');
            end;
          2:begin
                 dt:=vto;
                 writeln('vtornik');
            end;
          3:begin
                 dt:=sre;
                 writeln('sreda');
            end;
          4:begin
                 dt:=shet;
                 writeln('shetverg');
            end;
          5:begin
                 dt:=p9t;
                 writeln('p9tnica');
            end;
          6:begin
                 dt:=subb;
                 writeln('subbota');
            end;
     end;
end;
 function leap_year:Boolean;
 begin
      leap_year:=((t1.god mod 4=0)and(t1.god mod 100<>0)) or (t1.god mod 400=0);
 
end;
function dni(mes9c:byte):byte;
   begin
        if mes9c in [0,1,3,5,7,8,10,12] then
           dni:=31
        else
            if mes9c in [4,6,9,11] then
               dni:=30
            else
                if mes9c in [2] then
                   if leap_year then
                      dni:=29
                   else
                       dni:=28
         end;
procedure plus(d1,m1,g:word);
          begin
               dt:=shet;
               while not((t1.den=d1) and (n=m1) and (g=t1.god)) do
                     begin
                          if t1.den=dni(n) then
                           begin
                              t1.den:=1;
                       if n=12 then
                          begin
                               n:=1;
                               t1.god:=t1.god+1;
                          end
                       else
                           begin
                                n:=n+1;
                                t1.god:=t1.god;
                           end
                  end
               else
                   begin
                        t1.den:=t1.den+1;
                        n:=n;
                        t1.god:=t1.god;
                   end;
                                    if dt=vos then
                                       dt:=subb
                                    else
                                        dt:=pred(dt)
                  end;
                 vivod(ord(dt));
          end;
procedure minus(d1,m1,g:word);
            begin
               dt:=shet;
               while not((t1.den=d1) and (n=m1) and (g=t1.god)) do
                     begin
                          if t1.den=1 then
                             begin
                                  t1.den:=dni(n-1);
                                  if n=1 then
                                     begin
                                          n:=12;
                                          t1.god:=t1.god-1;
                                     end
                                  else
                                      begin
                                           n:=n-1;
                                           t1.god:=t1.god;
                                      end
                             end
                          else
                              begin
                                   t1.den:=t1.den-1;
                                   n:=n;
                                   t1.god:=t1.god;
                              end;
                        if dt=subb then
                           dt:=vos
                        else
                            dt:=succ(dt)
                     end;
                    vivod(ord(dt));
          end;
procedure prov_daty(d1,m1,g:word);
begin
     prov:=False;
     textcolor(lightblue);
     writeln('Vvedite datu cherez probel v formate den, mes9c, god:');
  repeat
     readln(t1.den,n,t1.god);
     case n of
          1:t1.mes9c:=jan;
          2:t1.mes9c:=feb;
          3:t1.mes9c:=mar;
          4:t1.mes9c:=apr;
          5:t1.mes9c:=may;
          6:t1.mes9c:=jun;
          7:t1.mes9c:=jul;
          8:t1.mes9c:=aug;
          9:t1.mes9c:=sep;
          10:t1.mes9c:=oct;
          11:t1.mes9c:=nov;
          12:t1.mes9c:=dec;
     end;
   if (n in [1..12]) and (t1.den in [1..31]) and (t1.god>=0) and (t1.god<=3000)then
     begin
          if t1.den<=dni(n) then
             begin
              prov:=true;
              if t1.god=g then
           if n=m1 then
              if t1.den=d1 then
                 begin
                 writeln('shetverg');
                 break
                 end
              else
                  t:=t1.den<d1
           else
               t:=n<m1
        else
           t:=t1.god<g;
        if t then
           plus(d1,m1,g)
        else
           minus(d1,m1,g);
             end
     else
         begin
              textcolor(red);
              writeln('v etom mes9ce kol-vo dney ne previshaet ',dni(n),' dney');
              writeln('povtorite vvod');
         end
     end
  else
     begin
      textcolor(red);
      writeln('data vvedena ne correctno');
      writeln('povtorite vvod');
     end;
  until prov;
end;
begin
     clrscr;
     d1:=6;
     m1:=5;
     g:=2010;
     dt:=shet;
     textcolor(green);
     writeln('Zdrastvuyte vas privetsvuet programma kotora9 opredel9et');
     writeln('Den nedeli po zadanoy  date');
     writeln;
     textcolor(white) ;
     writeln('dl9 prodolsheni9 nashmite "Y"  dl9 otmeni nashmite lybiy klavishu');
     ch:=readkey;
     vih:=false;
     if ch='y' then
        begin
             prov_daty(d1,m1,g);
             repeat
             textcolor(red);
             writeln('hotite prodolshit y/n?');
             ch:=readkey;
             clrscr;
             if ch='y' then
                begin
                     vih:=false;
                     prov_daty(d1,m1,g)
                end
            else
                if ch='n' then
                   vih:=true
           until vih
        end
     else
         if ch='n' then
            vih:=true;
end.

@house_step · 13.11.2010, 01:57 **[ТС]**

администратор просьба удалите эту тему. заранее спасибо. спасибо за 2 решенные задачки!

@Puporev · 13.11.2010, 06:37

house_step, Темы, не нарушающие правила форума, не удаляются.
Боитесь, нечего лазить за халявой...

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@house_step 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 7

	Подсчитать количество положительных элементов массива 12.11.2010, 13:42. Показов 5031. Ответов 8 Метки нет (Все метки) помогите решить задачки 1.Определите на какой день недели приходиться некоторая дата (например: 20 января 1983г.) 2.Подсчитать количество положительных элементов массива. 3.В тексте, содержащем несколько (много) предложений, найти все вхождения заданного слова и распечатать все ключевые его предложения. Принять, что каждое предложение заканчивается точной. 0

@house_step 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 7
	12.11.2010, 14:18 [ТС]
	20 января 1983г.). 0

@house_step 0 / 0 / 0 Регистрация: 30.10.2010 Сообщений: 7
	13.11.2010, 01:57 [ТС]
	администратор просьба удалите эту тему. заранее спасибо. спасибо за 2 решенные задачки! 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	13.11.2010, 06:37
	house_step, Темы, не нарушающие правила форума, не удаляются. Боитесь, нечего лазить за халявой... 0