Дан массив натуральных чисел. Напечатать все элементы массива, являющиеся двузначными числами. Дан массив. Напечатать четные элементы. Все элемен

1. Дан массив натуральных чисел. Напечатать все элементы массива,являющиеся двузначными числами.

2. Дан массив. Напечатать четные элементы.

3.Все элементы массива с четными номерами удвоить, с нечетными - уменьшить на 1.

     

        write(a[i], ' ');

      read(a[i]);

    for i := 1 to n do

    for i := 1 to n do

      if (a[i] mod 2 = 0) then

    for i := 1 to n do

     

    for i := 1 to n do

     

     

  • 1)

     

    3) 

        a[i] := a[i]*2

      if (a[i] div 100 = 0)and(a[i] div 10 > 0) then

      read(a[i]);

        write(a[i], ' ');

    for i := 1 to n do

    for i := 1 to n do

  •   if (a[i] mod 2 = 0)then

      a[i] := a[i] - 1;

      wirte(a[i]);

      read(a[i]);

    else

    2)

     

     

    for i := 1 to n do