Дан алгоритм на языке грис: шаг шаг поворот поворот поворот шаг шаг прыжок прыжок прыжок шаг шаг поворот поворот поворот шаг шаг прыжок прыжок прыжок шаг шаг поворот по-ворот поворот шаг шаг прыжок прыжок прыжок шаг шаг поворот поворот поворот шаг шаг прыжок прыжок прыжок. запишите этот же алгоритм с использованием подпрограмм.

Точно не знаю, но вроде бы все так!

pascalabc.net

begin

  // последовательность целых чисел вводится с клавиатуры

  // пока не будет введен 0 (который не войдет в нее).

  // затем последовательность преобразуется в массив (toarray)

  // нужного размера, который сохраняется с именем a

  var a : = readseqintegerwhile(p -> p < > 0).toarray;

  // заведем счетчики для количества положительных kp и

  // отрицательных kn элементов и обнулим их

  var (kp, kn) : = (0, 0);

  // просматриваем в цикле массив. на каждом шаге p будет обозначать

  // очередной элемент массива

  foreach var p in a do

    if p > 0 then       // если элемент положительный

      kp += 1               // добавим 1 в счетчик положительных

    else if p < 0 then   // если элемент отрицательный

      kn += 1;               // добавим 1 в счетчик отрицательных

  // осталось вывести результаты

  writeln('положительных чисел ', kp, ', отрицательных ', kn)

end.

// pascalabc.net 3.1, сборка 1230 от 27.04.2016 begin   var a,b: integer;   write('введите a и b: '); read(a,b);   for var x: =a to b do writeln(x: 5,5-x*x/2: 8: 1) end. тестовое решение введите a и b: -5 10     -5      -7.5     -4      -3.0     -3        0.5     -2        3.0     -1        4.5       0        5.0       1        4.5       2        3.0       3        0.5       4      -3.0       5      -7.5       6    -13.0       7    -19.5       8    -27.0       9    -35.5     10    -45.0