Ответ:PascalВыделить код

Var A:array[1..100] of integer;

i,n,s:integer;

Begin

write('Введите кол-во элементов: ');readln(n);

For i:=1 to n do

Begin

A[i]:=random(31);

write(A[i]:3);

if A[i] mod 3 = 0 then s:=s+A[i];

Объяснение: