Написать алгоритм на тему выезд на село.

1. начало

2. оденься

3. выйти из дома

4. если есть машина

  5.то сесть в машину

  6. завести машину

  7.начать путь следования по дороге

  8.доехать до села

  9. выйти из машины

иначе 10. дойти до остановки

          11.дождаться автобуса

          12. зайти в автобус

          13. доехать до села

          14. выйти из автобуса

15. конец

11) начало 2) i = 1 2.1) k = i^2 2.2) вывод k 2.3) i = i + 1 2.4) i > 5 ? если да, возвращаемся на 2.1) если нет, окончание цикла. 3) конец. 2 1) начало 2) k = 0 (счетчик нечетных чисел) 3) ввод первого числа a1 3.1) если [a1 / 2] < a1 / 2, то k = k + 1 (ввели нечетное число) 4) ввод второго числа a2 4.1) если [a2 / 2] < a2 / 2, то k = k + 1 (ввели нечетное число) 5) ввод третьего числа a3 5.1) если [a3 / 2] < a3 / 2, то k = k + 1 (ввели нечетное число) 6) вывод k 7) конец 3 1) начало 2) объявление массива а() пока неизвестного размера (динамического) 3) i = 1 3.1) ввод очередного числа a(i) 3.2) если a(i) = 0, то переход на 4) 3.3) i = i + 1 3.4) возврат на 3.1) 4) переопределение динамического массива a(i) размером i элементов. 5) конец

Var a: array[1..10] of integer; cnt1, cnt2, i: integer; begin   for i: = 1 to 10 do     read(a[i]);   for i: = 1 to 5 do   if a[i] > 0 then cnt1 : = cnt1 + 1;   for i: = 6 to 10 do   if a[i] > 0 then cnt2 : = cnt2 + 1;   if cnt1 = cnt2 then writeln('количество пол-х элементов одинаково');   if cnt1 > cnt2 then writeln('количество пол-х элементов больше в первой половине');   if cnt1 < cnt2 then  writeln('количество пол-х элементов больше во второй половине'); end. пример: -1 -2 3 5 0 4 6 7 -2 -5 количество пол-х элементов больше во второй половине