Лазарус! масив! мама развела целую оранжерею кактусов, некоторые из которых гольчасти, а остальные голые. маленькая дочь яринка решила, что иглы на кактусах это слишком дерзко, поэтому побрила их бритвой. хорошо, что у мамы остался блакнот , в котором все кактусы были обозначены количеством иголок a1 , an (голые кактусы были обозначены 0). сколько кактусов коснулась рука юной девочки .

1. Выполнить вручную шифрование сообщения при шифра «Поворотная решетка».

В качестве исходной фразы используйте:

Джинсы порезаны, лето, три полоски на кедах

2. Выполнить вручную шифрование сообщения при шифрующей системы Трисемуса.

В качестве исходной фразы используйте:

Под небом голубым есть город золотой

3. Выполнить вручную шифрование сообщения при лозунгового шифра.

В качестве исходной фразы используйте:

Я шагаю по пpoспектy, по ночномy гоpодy.

В качестве ключа используйте слово «Аквамарин»

4. Выполнить вручную шифрование сообщения при шифра табличной маршрутной перестановки.

В качестве исходной фразы используйте:

Я не знаю, где ошиблись мы в расчетах

5. Выполнить вручную кодирование сообщения методом RLE.

В качестве исходной фразы используйте:

РРппВ12уллл3336

6. Выполнить вручную кодирование сообщения методом RLE.

В качестве исходной фразы используйте:

еВпппВ11уфффуугггддд

7. Выполнить вручную кодирование сообщения методом RLE.

В качестве исходной фразы используйте:

ИВВВ111у

Заранее за ответы!

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