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.