Дан массив из n элементов. определить сумму тех, которые нечетны и отрицательны.

//Pascal
//Заполнение массива случайными числами
var
  A: array[1..255] of integer;
  i, sum, N: integer;
begin
write('Введите N: '); readln(N);
randomize; //В PascalABC.NET можно убрать
for i := 1 to N do
begin
  A[i] := random(21)-10; //Случайные числа от -10 до 10
  if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i];
  write(A[i], ' ');
end;
writeln;
writeln('Сумма отрицательных и нечетных = ', sum);
readln;
end. 

//Pascal
//Заполнение массива с клавиатуры
var
  A: array[1..255] of integer;
  i, sum, N: integer;
begin
write('Введите N: '); readln(N);
for i := 1 to N do
begin
  write('A[', i, '] = '); readln(A[i]);
  if ((A[i] mod 2 <> 0) and (A[i] < 0)) then sum := sum + A[i];
end;
writeln;
writeln('Сумма отрицательных и нечетных = ', sum);
readln;
end. 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

РРппВ12уллл3336

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

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

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

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

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

ИВВВ111у

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

Const n=20;
var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1,
                  15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13);            
    i,j,k: integer;
begin
  for i:=1 to n-1 do
  for j:=i+1 to n do
  if a[j]<a[i] then swap(a[i],a[j]);
  writeln('отсортированный массив: ');
  for i:=1 to n do write(a[i],' ');
  writeln;
  k:=0;
  i:=1; j:=2;
  repeat
    if a[j]-a[i]>=3 then
    begin
      writeln('пара: ',a[i],' ',a[j]);    
      i:=j;
      inc(k);
    end;  
    inc(j);
  until j>n;
  writeln('количество солдат:k+1);
end.

отсортированный массив: 
1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25 
пара: 1 4
пара: 4 8
пара: 8 12
пара: 12 15
пара: 15 20
пара: 20 23
количество солдат: 7