Program n1;
var n,i,k: integer;
sum,a: real;
begin
sum:=0;
k:=0;
write('n=');
readln(n);
for i:=1 to n do
begin
readln(a);
if a<0 then begin
sum:=sum+a;
k:=k+1;
end;
end;
writeln(sum/k);
end.
Алгоритмы c ветвлениями.
Форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность шагов
39 в десятично равно 100111 в двоичной,
39:2=19 остаток 1
19:2=9 остаток 1
9:2=4 остаток 1
4:2=2 остаток 0
2:2=1 остаток 0
И 1 в конце
И получается 100111 в двоичной
нач. пункт:лев ниж угол
1 сместиться на 5 клеток в верх
2 повернуться на 90 градусов в право
3 сместиться на 2 клетки вперёд
4 повернуться на 90 градусов в право
5 сместитьтся на 2 клетки вперёд
6 повернутся на 90 градусов в лево
7 сместится на 2 клетки вперёд
8 повернутся на 90 градусов в лево
9переместиться 2 клетки
10 повт 8 и 9
11 повторить всё это ещё один раз
В расширенной записи двухзначное число в 14-ричной системе счисления записывается в виде N = 14*a+b, a,b=0,1,2,..13
Если число N оканчивается на 8, то N = 14*a+8
Эта формула порождает ряд чисел: 8, 22, 36, 50, 64, 78 ... но 78 > 70, поэтому ответом будет ряд чисел 8, 22, 36, 50, 64.