Водном из вариантов кодировки unicode каждый символ кодируется двумя байтами. определите количество символов в сообщении, если информационный объём сообщения в этой кодировке равен 480 бит.

V=k*i,
V - информационный объём сообщения
k - количество символов в сообщении
i - информационный вес одного символа

k=V/i
2 байта = 16 бит

k=480/16=30

ответ: 30 символов

Var a:array[1..10] of integer;
  k,n,i:integer;
  min:INTEGER;
begin
  randomize; N:=10; k:=0 {кол-во отрицательных элементов};
  writeln ('исходный массив');
  for i:=1 to N do
  begin
   if random(2) =1 then a[i]:=random(100)
     else begin k:=k+1; a[i]:=-random(100); min:=a[I] end;
   write(a[i]:5);
  end;
  writeln;
  {поиск минимального положительного}
  if (k<>0) or (k<>N) then  {есть отрицательные или не все отрицательные}
  begin
    for i:=1 to N do
     if  (a[i]>0) and (a[i]<min) then  min:=a[i];
  {замена}
    for i:=1 to N do
     if  (a[i]<0)  then  a[i]:=min;
  end;
  writeln('Новый массив')
    for i:=1 to N do      write(a[i]:5);
end.

Можно либо циклы в общем цикле (коротко и красиво):

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кц

кон

То же самое ещё понятнее и короче выглядит, если малые циклы в строчку записать:

использовать Робот

алг

нач

нц пока снизу свободно

вниз

нц пока справа свободно; вправо кц

нц пока снизу свободно; вниз кц

нц пока слева свободно; влево кц

кц

кон

Либо просто несколько циклов друг за другом (длинно и уныло):

использовать Робот

алг

нач

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

вниз

нц пока справа свободно

вправо

кц

нц пока снизу свободно

вниз

кц

нц пока слева свободно

влево

кц

кон