Дан массив из 12 элементов, в котором есть положительные и отрицательные числа (ноль тоже есть): а1=5, а2=4, а3=-3, а4=1, а5=0, а6=-4, а7=, а8=25, а9=-8, а10=-5, а11=-17, а12=-1. составьте программу, в которой 1 вариант: все отрицательные числа меняются на «1», все положительные на «-5», нулевые не трогаются. вывести на экран исходный и полученный массив.

Const n=12;
a:array[1..n] of integer=(5,4,-3,1,0,-4,7,25,-8,-5,-17,-1);
var i:integer;
begin
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
 if a[i]<0 then a[i]:=1
           else if a[i]>0 then a[i]:=-5;
for i:=1 to n do write(a[i]:4);
end.

Результат:
5 4 -3 1 0 -4 7 25 -8 -5 -17 -1
-5 -5 1 -5 0 1 -5 -5 1 1 1 1

Var n, a, pos, neg, null, i: integer;
 begin
  pos := 0;
  neg := 0;
  null := 0;
  writeln('Введите N:');
  readln(n);
  writeln('Введите N целых чисел:');
  for i := 1 to n do
   begin
    read(a);
    if(a < 0) then neg := neg + 1;
    if(a > 0) then pos := pos + 1;
    if(a = 0) then null := null + 1;
  end;
  writeln('Положительных чисел: ', pos);
  writeln('Отрицательных чисел: ', neg);
  writeln('Нулей: ', null);
end.
Тестовые решения:
1)ввод
8
1 2 0 3 0 -5 -4 2
вывод
Положительных чисел: 4
Отрицательных чисел: 2
Нулей: 2
2)ввод
6
0 0 3 -5 0 22
вывод
Положительных чисел: 2
Отрицательных чисел: 1
Нулей: 3

Преобразуем выражение к виду, из которого легко перевести в шестеричную систему, затем переведём в неё и посчитаем, сколько получится:

36^17+66^6-6=66^6+(6^2)^12-6=66^6+6^(2*12)-6=66^6+6^24-6^1=(1*6^36+1*6^24)-1*6^1=1000000000001000000000000000000000000^6-10^6=1000000000000555555555555555555555550^6

Как видим, была разность двух чисел в шестеричной системе счисления.
Первое число состояло из двух единиц и кучи нулей.
Вторая единица- после неё было 24 нуля (т.к. в шестеричной системе и есть единица с 24-мя нулями).
Потом мы вычли из этого единицу с одним нулём.
Получается, у нас из этих 24-ёх нулей, последний останется, а вместо остальных 23-ёх будут стоять пятёрки. Ну, а вместо второй единицы будет ноль.

Итого, в этой записи будет 23 пятёрки.