2. для кодирования символов на маяке используют 3 вида сигналов: «красный», «зелёный» и «жёлтый». сколько различных символов длиной не менее 2 и не более 4 символов можно закодировать с этих сигналов?

Длиной не менее 2 и не более 4 символов можно закодировать последовательности из 2-х, 3-х и 4-х символов.
Определим количество каждого и сложим.
Каждый сигнал принимает одно из трёх значений.
2 символа - 3^2 = 9
3 символа - 3^3 = 27
4 символа - 3^4 = 81

9+27+81 = 117

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=5;

Var
 ar:array[1..n] of integer;
 i,j,k:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-3,3);
   write(ar[i]:4);
  end;
 for i:=1 to n-1 do {ммм, пузырёк. Но за быструю сортировку здесь репортят}
  for j:=i+1 to n do
   if ar[i]>ar[j] then
    begin
     k:=ar[i];
     ar[i]:=ar[j];
     ar[j]:=k;
    end;
 writeln;
 writeln('Sorted array:');
 for i:=1 to n do
 write(ar[i]:4);
 writeln;
 for i:=1 to n do
 if ar[i]=0 then
  begin
   write('Index of 0 is ',i);
   break;
  end;
end.

Пример работы программы:
First array:
  -2  -3   0  -3   3
Sorted array:
  -3  -3  -2   0   3
Index of 0 is 4

//Pascal ABC.NET v3.1 сборка 1219

Const
 n=10;

 Var
 ar:array[1..n] of integer; 
sum,i:integer;
begin
 randomize;
 writeln('First array:');
 for i:=1 to n do
  begin
   ar[i]:=random(-50,50);
   write(ar[i]:4);
   sum:=sum+ar[i];
  end;
 writeln;
 writeln('Sum=',sum);
 writeln('Final array:');
 for i:=1 to n do
  begin
   ar[i]:=ar[i]*5;
   write(ar[i]:6);
  end;
end.

Пример работы программы:
First array:
  24  45  28  40 -48  -7  29  43 -23  18
Sum=149
Final array:
   120   225   140   200  -240   -35   145   215  -115    90