На рисунке слева изображена схема докоr Н-ского района, в таблице звездочкой обозначено наличие дороги из одного населенного пункта в другой. Отсутствие звездочки откачает, что такой дорогик от
A
D
1 2 3 4
5 6 7
В.
о
Нcn
1
4
(0)
of
F.
е
E
Каждому насоленному пункту на схеме соответствуют его номер в тапица, но неизвестно, какой именно номер. Определите, какие
номера населенных пунктов в таблице могут соответствовать населенных пунктах Вигна схеме. В ответе запиците эти два номера в
возрастаницом порядке без пробепоп и знака препинания

Несовершеннолетним категорически запрещается:

Курить;

Приобретать и употреблять пиво и напитки, изготовляемые на его основе, алкогольную и спиртосодержащую продукцию, принимать без назначения врачей психотропные вещества, наркотики и другие токсические вещества;
Несовершеннолетние должны уважать труд работников и граждан по обеспечению чистоты, света и уюта в помещениях, подъездах.
Несовершеннолетние обязаны:

бережно и аккуратно относиться к имуществу, находящемуся в общественных местах;

в случае нанесения вреда имуществу, возместить, восстановить с родителями или лицами, их заменяющими, согласно действующему законодательству;

выполнить требования и Правила учреждения, общественного места в котором находятся;

соблюдать правила этикета общения и обращения с людьми.

Var k, i, n:Integer ;

A:array [1..100]of Integer ;

Begin

Write('Введите кол-во элементов в массиве ') ;

Read(n) ;

For i:=1 to N do begin

A[i]:=random(100)-50;

Write(' ', A[i]) ;

End;

K:=0;writeln;

Write ('кол-во отрицательных элементов ') ;

For i:=1 to N do begin

If A[i]<0 then k:=k+1;

End;

Write(k);k:=0;

Writeln;

Write ('сумма четных элементов ') ;

For i:=1 to N do begin

If A[i] mod 2=0 then k:=k+a[i];

End;

Write(k) ;k:=1;

Writeln ;

Write('произведение элементов в интервале [1;20] ');

For i:=1 to N do begin

If (a[i]>0)and(a[i]<21) then k:=k*a[i];

End;

Write(k) ;

End.