Тапс
Әңгімеден үзінді Көріктеу құралдары Түсіндірме
...Ұлан асуына қарай созылған ұзақ жол беті сиыр жалағандай. Жып-жылмағай көк мұз. Сиыр жалағандай – теңеу. -дай жұрнағы арқылы жасалған теңеу;
Жып-жылмағай көк – эпитет. Жып-жылмағай көк тіркесі мұз сөзінің сапасын айқындап тұр.
...наурыздың ақша қарын жамылып, самарқау жатыр.
...қалың тұманда адасып қалған адамдай сандалмас па еді...
Автобус тасбақаша төрттағандап ілбіп келеді.
Ат құлағы көрінбес боран.
...атамекені Алтайына табанын тіреп, ертең-ақ ал көңілі бүрлеп шыға келер.
Боран бақсыдай автобусты айнала асыр салып үйіріледі.

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45

Var a,k1,k2,s:integer;
begin
writeln('Вводите целые числа. Конец ввода - 0');
k1:=0;
k2:=0;
s:=0;
readln(a);
while a<>0 do
 begin
 if (a mod 2 = 0)and(a<0) then k1:=k1+1;
 if a mod 2 <> 0 then begin k2:=k2+1; s:=s+a; end;
 readln(a);
 end;
writeln('количество четных отрицательных чисел = ',k1);
if k2>0
 then writeln('среднее арифметическое нечётных чисел = ',s/k2)
 else writeln('в последовательности нет нечётных чисел');
end.

Пример:
Вводите целые числа. Конец ввода - 0
18
-45
10
-62
70
0
количество четных отрицательных чисел = 1
среднее арифметическое нечётных чисел = -45