1 вариант 1 задача пожалуйста!!!!

Question

1 вариант 1 задача пожалуйста!!!!

---

Answer 1

Var
  b: array[1..8] of integer;
  s,i: integer;
begin
  s:=0;
  for i:=1 to 8 do begin
    b[i]:=random(11)-5;
    write (b[i]:3);
    if (b[i]>0) and (b[i] mod 3 =0)
      then s:=s+b[i];
  end;
  writeln;
  writeln ('s = ',s)
end.
-------------Результат:-------------
 -4  3  5 -5  3  0 -2  5
s = 6