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]*2else a[i]: =a[i] — 1; for i: =1 to n do wirte (a[i]);