Несовершеннолетним категорически запрещается:
Курить;
Приобретать и употреблять пиво и напитки, изготовляемые на его основе, алкогольную и спиртосодержащую продукцию, принимать без назначения врачей психотропные вещества, наркотики и другие токсические вещества;
Несовершеннолетние должны уважать труд работников и граждан по обеспечению чистоты, света и уюта в помещениях, подъездах.
Несовершеннолетние обязаны:
бережно и аккуратно относиться к имуществу, находящемуся в общественных местах;
в случае нанесения вреда имуществу, возместить, восстановить с родителями или лицами, их заменяющими, согласно действующему законодательству;
выполнить требования и Правила учреждения, общественного места в котором находятся;
соблюдать правила этикета общения и обращения с людьми.
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.
