Ввести с клавиатуры 8 чисел (2, 3, 4, 10, 5, 8, 7, 20) чисел. найти произведение чисел < 5 даны числа: -2, 10, 6, -5, 14,- 8. найти сумму отрицательных чисел. 3. найти сумму чисел от 1 до 100, делящихся без остатка на 4.

1)Const n=8;

Var p, i, a:Integer ;

Begin

Write ('Введите влсемь чисел') ;

P:=1;

For i:=1 to N do begin

Read(a) ;

If a<5 then P:=p*a;

End;

Writeln('произведение чисел меньших пяти ', p) ;

End.

2)Const n=6;

Var p, i, a:Integer ;

Begin

Write ('Введите шесть чисел') ;

P:=0;

For i:=1 to N do begin

Read(a) ;

If a<0 then P:=p+a;

End;

Writeln('сумма чисел меньших нуля ', p) ;

End.

3)Const n=100;

Var i, s:Integer ;

Begin

S:=0;

For i:=1 to N do begin

If i mod 4=0 then s:=s+1;

End;

Writeln(s) ;

End.