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

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое. 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.