Question

Программирование на паскаль.
Помогите пожалуйста!!!Срочно надо!!!
1.Найти сумму всех отрицательных чисел из массива 30000
2.Написать программу нахождения произведения всех чисел, которые делятся на 3

Answer 1

1.
var a:array[1..30000] of integer; b,x:integer;
begin
for x:=1 to 30000 do begin readln(a[x]);
if a[x]<0 then b:= b+a[x];
end;
end.
2.
var a:array[1..30000] of integer; b,x:integer;
begin
b:= 1;
for x:=1 to 30000 do begin readln(a[x]);
if a[x] mod 3 = 0 then b:= b*a[x];
end;
end.