массивы

[Aigulk]

помогите,пожалуйста..никак что-то у меня не получается(
1.нужно составить программу вычисления в массиве A(N) суммы всех чисел, кратных 3, через random от -20 до 50
2.составить программу вычисления среднего арифметического элементов массива,также через рандом
3. составить программу вычисления в массиве В(8) суммы отрицательных элементов. не через рандом..
вот..поможете-спасибо огромное..)

[Mad_Cat]

1)

s:=0;
for i:=1 to 20 do
begin
a[i]:=random(71)-20;
if a[i] mod 3 = 0 then s:=s+a[i];
write (a[i],' ');
end;
writeln(s)

2)

s:=0;
for i:=1 to 20 do
begin
a[i]:=random(71)-20;
 s:=s+a[i];
write (a[i],' ');
end;
writeln(s/n:6:3);

3)

s:=0;
for i:=1 to 8 do
begin readln(a[i]);
if a[i]<0 then s:=s+a[i];
end;
writeln(s);

[Aigulk]

большущее спасибо)
помогли очень)