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

Question

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

Answer 1

Такие задачи здесь разбирались  уже много раз. Как вариант можно предложить такое решение:
//Pascal
const 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.