Решить в vba:
ввести массив, состоящий из 16 элементов целого типа. заменить все элементы, кратные трем, нулями. определить количество замен​

А)Начало -> 
 Ввод массива -> 
 Ввод X -> 
 Ввод Y ->
 Если X>Y
 ->no->End
 ->yes->
 p=0 ->
 ∨-> если элемент массива (p) > X, элемент массива (p) = X ->
  если элемент массива (p) < Y, элемент массива (p) = Y ->
  p = p + 1 -> если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец

б)Начало -> 
 Ввод массива -> 
 p=0 ->
 ∨-> если элемент массива (p) %(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)%3
->p=p+1
->если p больше размера массива
      если нет -> Возврат на ∨
      если да -> Вывод массива -> Конец
      

1.

program ll1;

var A: array[1..20] of integer;

i: integer;

begin

Randomize;

for i:=1 to 20 do

begin

A[i]:=random();

if A[i] mod 2 = 0 then writeln(A[i]);

end;

end.

2 .

program ll1;

const N = 20;

var A: array[1..20, 1..20] of integer;

i, j, k: integer;

begin

for i:=1 to N do

for j:=1 to N do

begin

readln(A[i, j]);

if (A[i, j] >= 0) and (A[i, j] < 10) then

k:=k+1;

end;

writeln(k);

end.

3.

program ll1;

var A: array[1..20] of integer;

k, x, y: integer;

begin

Randomize;

readln(x);

readln(y);

for k:=1 to 20 do

begin

A[k]:=random();

if A[k] >= 0 then

A[k]:=x;

else

A[k]:=y;

end;

end.