Средняя скорость передачи данных с модема равна 36864бит. Сколько секунд понадобится модему, чтобы передать 4 страницы текста в 8-битной кодировке КОИ8, если считать, что на каждой странице в среднем 2304 символа?

Const
  n = 11;

var
  x: array[1..n] of integer;
  i, k, d, s: integer;

begin
  Randomize;
  Writeln('Элементы массива');
  k := 0; s := 0;
  for i := 1 to n do
  begin
    d := Random(11) - 5;
    Write(d:3);
    if (i mod 2) = 0 then begin { четное место }
      if d = 1 then Inc(k);
      x[i] := d
    end
    else begin
      if d < 0 then s := s + d;
      x[i] := sqr(d)
    end
  end;
  Writeln;
  Writeln('Результирующий массив');
  for i := 1 to n do Write(x[i]:3);
  Writeln;
  Writeln('Количество единиц на четных местах равно ', k);
  Writeln('Сумма отрицательных элементов на нечетных местах равна ', s)
end.

Тестовое решение:
Элементы массива
 -3  0 -5  1  5  1 -3 -4  5 -3 -2
Результирующий массив
  9  0 25  1 25  1  9 -4 25 -3  4
Количество единиц на четных местах равно 2
Сумма отрицательных элементов на нечетных местах равна -13

1.

использовать Чертежник

алг

нач

сместиться в точку (3,0)

ц1

ц2

ц6

сместиться в точку (3,-5)

ц2

ц6

ц1

сместиться в точку (3,-10)

ц6

ц1

ц2

сместиться в точку (-1,-1)

кон

алг ц1

нач

опустить перо

сместиться на вектор (0,4)

сместиться на вектор (-2,-2)

поднять перо

сместиться на вектор (5,-2)

кон

алг ц2

нач

опустить перо

сместиться на вектор (-2,0)

сместиться на вектор (2,2)

сместиться на вектор (0,2)

сместиться на вектор (-2,0)

поднять перо

сместиться на вектор (5,-4)

кон

алг ц6

нач

опустить перо

сместиться на вектор (0,2)

сместиться на вектор (-2,0)

сместиться на вектор (2,2)

сместиться на вектор (-2,-2)

сместиться на вектор (0,-2)

сместиться на вектор (2,0)

поднять перо

сместиться на вектор (3,0)

кон

2.

использовать Чертежник

алг

нач

цел й

сместиться в точку (4,6)

нц для й от 2 до 6

опустить перо

сместиться на вектор (0,-й)

сместиться на вектор (й,0)

сместиться на вектор (-й,й)

поднять перо

сместиться на вектор (-1,0)

кц

сместиться в точку (-1,-1)

кон

3.

использовать Чертежник

алг

нач

цел д,к

вывод ('Введите длину вагона (д>=5) д = ')

ввод д

вывод ('Введите количество вагонов (к>=1) к = ')

ввод к

сместиться в точку (д+2,1)

опустить перо

лк (д)

нц к раз

в (д)

кц

поднять перо

сместиться в точку (-1,-1)

кон

алг лк (цел д)

нач

сместиться на вектор (-2,0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-(д-2),0)

сместиться на вектор (0,-1)

сместиться на вектор (1,0)

сместиться на вектор (0,1)

сместиться на вектор (-4,0)

сместиться на вектор (2,2)

сместиться на вектор (д,0)

сместиться на вектор (0,-2)

кон

алг в (цел д)

нач

сместиться на вектор (3,0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор ((д-2),0)

сместиться на вектор (0,-1)

сместиться на вектор (-1,0)

сместиться на вектор (0,1)

сместиться на вектор (2,0)

сместиться на вектор (0,2)

сместиться на вектор (-д,0)

сместиться на вектор (0,-2)

сместиться на вектор (д,0)

кон

Объяснение:

Смотри картинки