<h2>ответ 30</h2>
количество путей, проходящих через точки:
А 1
Б 1
В 1
Г 3(А+Б+В)
Д 3(=Г)
Е 3(т.к. путь ВЕ не проходит через пункт Г, его не учитываем)
Ж 9(Д+Г+Е)
З 9(=Ж)
И 21(Д+Ж+З)
К 30(И+З)
Блок-схема - в прилагаемом файле.
Заполнение случайными числами:
Const N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
Randomize;
R:=0;
For i:= 1 to N do
Begin
A[i]:=random*(2*N+1)-N;
R:=R-A[i];
Write(A[i]:0:1,' ')
End;
WriteLn;
WriteLn('R = ',R);
End.
Ввод с клавиатуры:
Const
N = 20;
Var
A:array[1..N] of real;
i:integer;
R:real;
Begin
R:=0;
For i:= 1 to N do
Begin
Read(A[i]);
R:=R-A[i];
End;
WriteLn('R = ',R);
End.
<span>var a,b,c,min:integer;
begin
readln(a,b,c);
if a<b then min:=a else min:=b;
if c<min then min:=c;
writeln('min = ',min);
end<span>.
Пример:
2 3 1
</span><span>min = 1</span></span>