составьте программу, которая заполняет массив s [1..15] случайными целыми числами в диапазоне от -15 до 5 и находит количество элементов кратных 3.

vara:array [1..30] of integer;  // тут можешь регулировать количество чиселi,k,n:integer;begink:=0;writeln('введите количество чисел от 1 до 30');read(n);randomize;for i:=1 to n do begina[i]:=random(16)-5;write(a[i]:3);end;writeln();for i:=1 to n do if (a[i] mod 3=0) and (a[i]<>0) then k:=k+1;writeln(k);end.