Ввести с клавиатуры 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;</p>
End;
Writeln('произведение чисел меньших пяти ', p) ;
End.
2)Const n=6;
Write ('Введите шесть чисел') ;
P:=0;
If a<0 then P:=p+a;</p>
Writeln('сумма чисел меньших нуля ', p) ;
3)Const n=100;
Var i, s:Integer ;
S:=0;
If i mod 4=0 then s:=s+1;
Writeln(s) ;