Люди решите на паскале: их 4 штуки! 1.дан массив тз n элементов. есть ли в нем чётные элементы, которые кратны заданному числу k. 2. дан массив из nэлементов. посчитать, сколько элементов массива равных минемальному. 3. сформировать массив из nэлементов: 10 12 16 22 30 40. 4. дан массив из nэлементов. перемножить минемальные элементы на 2. heeelp!
const n=100000;
var
k:integer;
flag:boolean;
a:array[1..n]of integer;
begin
flag:=false;
randomize;
read(k);
for i:=1 to n do
begin
a[i]:=random(1000);
if (a[i] mod k=0) and (i mod 2=0) then flag:=true;
end;
if flag then write('Есть') else write('Нет");
end.