Дан массив целых чисел.
Все нечетные элементы удвоить, я четные умень­шить вдвое.

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.var a: array [1..10] of real; // возьмем массив из 10 чисел    i,x      :byte;begin  randomize;  for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)  begin    a[i]:=random(1000);    writeln (i,' элемент исходного массива ',a[i]);  end;  writeln ();  for i:=1 to 10 do  begin      x:=i mod 2; //определяем четный или нет элемент массива      if x=0 then //если элемент четный        begin          a[i]:=a[i]/2;          writeln (i,' элемент массива  - четный   ',a[i]);        end         else      //если элемент нечетный        begin          a[i]:=a[i]*2;          writeln (i,' элемент массива  - нечетный ',a[i]);        end;  end;end.