1) 3
2) ввод элементов массива с клавиатуры
3) mod  - это остаток от деления, т.к. каждый элемент массива получен как результат * индекса на 3, то каждый элемент кратен 3. А значит mod вернет 0.
ответ: 4
4) mas: array [1..100] of real;
5)
var
d: array [1..20] of integer;
i,k:integer;
begin
  k:=0;
  write ('В массиве: ');
  for i:=1 to 20  do begin
     d[i]:=10*random()-15;
     write(d[i],' ');
     if d[i]>=0 then k:=k+1;
  end;
  writeln(' есть ',k,' положительных чисел');
end.