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

может быть крик?

решение должно иметь од 20 до 5000

var a: array[1..20] of integer; s,i: integer; begin

s : = 0; for i : = 1 to 20 do begin a[i] : = random(40)-20; if a[i] > 0 thens : = s+a[i]; write(a[i]: 4); end; writeln; writeln(s); end.

обработка с электронных таблиц автоматизирует весь процесс и ускоряет выполнение работы.

чесно говоря без них куда легче

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then s[i]: ='*';

  writeln(s);

end.

с ними только больше кода

var s: string;

i: integer;

begin

  read(s);

  for i: = 1 to length(s) do

      if i mod 2 = 0 then begin

          delete(s,i,1);

          insert('*',s,i);

      end;

  writeln(s);

end.