Question

ИНФОРМАТИКА 9 КЛАСС
ПОМОГИТЕ ПОЖАЛУЙСТА
1)Подсчитайте произведение отрицательных чисел последовательности из 5 чисел, введенных с клавиатуры.
2)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество чисел кратных 3 этой последовательности.
3)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите сумму чисел кратных 7 этой последовательности.
4)Пользователь первоначально задает количество чисел в последовательности, затем вводит эти числа с клавиатуры. Вычислите количество четных, отрицательных чисел последовательности.

Answer 1

1)

var i,p,n: integer;

begin

p:=1;

for i:=1 to 5 do begin

readln(n);

if(n<0) then p:=p*n;

end;

write(p);

end.

2)

var n,k,x,i: integer;

begin

readln(n);

k:=0;

for i:=1 to n do begin

readln(x);

if x mod 3=0 then k:=k+1;

end;

write(k);

end.

3)

var n,s,x,i: integer;

begin

readln(n);

s:=0;

for i:=1 to n do begin

readln(x);

if x mod 7=0 then s:=s+x;

end;

write(s);

end.

4)

var n,k,x,i: integer;

begin

k:=0;

readln(n);

for i:=1 to n do begin

readln(x);

if(x mod 2=0) and (x<0) then k:=k+1;

end;

write(k);

end.