Question

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

Answer 1

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
Количество нулевых элементов на нечетных местах равно 2

const
  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