Question

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

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

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

Answer 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]);