1)Составте программу подсчета нулевых элементов одно мерного массива Т(И) стоящих на нечетных местах.
2)Сотавте программу,которая в одно мерном массиве А(18) все элементы с нечетными номерами меняется на 0.

const  n = 20;var  T: array[1..n] of integer;  i, k: integer;begin  Randomize;  Writeln('Элементы массива');  k := 0;  for i := 1 to n do  begin    T[i] := Random(11)-5;    Write(T[i]:3);    if ((i mod 2)<>0) and (T[i]=0) then Inc(k);  end;  Writeln;  Writeln('Количество нулевых элементов на нечетных местах равно ',k);end.Тестовое решение:Элементы массива  2  5 -4  4  3 -2  5 -5 -1 -2  5  2  0 -5 -5 -4 -3  3  0  1Количество нулевых элементов на нечетных местах равно 2const  n = 18;var  T: array[1..n] of integer;  i: integer;begin  Randomize;  Writeln('Элементы массива');  for i := 1 to n do  begin    T[i] := Random(51)-25;    Write(T[i]:4);  end;  Writeln;  Writeln('Результат');  for i := 1 to n do  begin    if ((i mod 2)<>0) then T[i] := 0;    Write(T[i]:4);  end;  Writeln;end.Тестовое решение:Элементы массива  23  -6   8  14  15  12 -24  20 -11  -7   4 -24  22 -19  12  -6  21  17Результат   0  -6   0  14   0  12   0  20   0  -7   0 -24   0 -19   0  -6   0  17