Составить программу, которая формирует массив из 27 случайный чисел от -10 дл 15 и нечетные числа заменяет на 3, остальные уменьшает в 3 раза в паскале

uses arrays;

const

n = 27;

var

a : array of integer;

b : array of real;

i : integer;

begin

a : = createrandomintegerarray(n, -10, 15);

b : = new real[n];

for i : = 1 to n do

  if a[i-1] mod 2 = 1 then //[i-1] нумерация массива начинается

  b[i-1] : = 3     // с нуля!

  else

  b[i-1] : = a[i-1] / 3;

writeln('исходный массив: ');

a.println;

writeln('результат выполнения программы: ');

for i : = 1 to 27 do

  write(b[i-1]: 7: 3, ', ');

  if i mod 6 = 0 then

  writeln;

writeln

end.

const n=27;

var a: array [1..n] of integer;

i: integer;

begin

write('       исходный массив: ');

for i: =1 to n do

begin

a[i]: =random(26)-10;

write(a[i]: 3,' ');

if a[i] mod 2 < > 0 then a[i]: =3

else a[i]: =a[i]-3//уменьшает на 3,т.к. при уменьшении в 3 раза получается тип real, тут или второй массив создавать или взять a[i]: =a[i] div 3 (целочисленное деление)

end;

writeln;

write('преобразованый массив: ');

for i: =1 to n do write(a[i]: 3,' ')

end.

1. По доступа:

2. По размещению: