2. Напишите программу вычисления в массиве из n элементов, заданных датчиком случа??ных чисел из промежутка от -11 до 14, суммы всех чисел, кратных 3.

Такие задачи здесь разбирались  уже много раз. Как вариант можно предложить такое решение://Pascalconst n = 100;var a:array[1..n] of integer;  i,s,m:integer;begin   readln(m);  s:=0;  for i:=1 to m do begin    a[i]:=random(26)-11;    if a[i] mod 3=0 then s:=s+a[i];  end;  writeln(s); end.