Из А в Б ведет 2 пути
из Б в В ведет 2+2=4 пути
из А в В ведет 2 пути
4+2=6
Ответ:6 путей
Var
a,n,i,k:integer;
Begin
Readln(n);
k:=0;
i:=0;
while i<n do
Begin
readln(a);
if a>0
then k:=k+1;
i:=i+1;
end;
Writeln(k);
End.
Если не будет хватать одного выполнения то напишешь "while i<n+1 do"
Объект- это структура, а область-это пространственная площадь либо сфера деятельности
Я пример не могу привести
Var k, m : integer;
Dat: array[1..10] of integer;
Begin
for k:=1 to 10 do
Readln (Dat[k]);
m := 0;
for k := 1 to 10 do;
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.