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

1)   for i := 1 to n do   read(a[i]);   for i := 1 to n do   if (a[i] div 100 = 0)and(a[i] div 10 > 0) then     write(a[i], ' ');   2) for i := 1 to n do   read(a[i]);   for i := 1 to n do   if (a[i] mod 2 = 0) then     write(a[i], ' ');   3)  for i := 1 to n do   read(a[i]);   for i := 1 to n do   if (a[i] mod 2 = 0)then     a[i] := a[i]*2 else   a[i] := a[i] - 1;   for i := 1 to n do   wirte(a[i]);