Сосавить программу, которая формирует массив, содержащий 8 случайных целых чисел, принадлежащих промежутку[0; 6] и преобразует элементы массива по следующему правилу: четное число умножает на 3, а к нечетному прибавляет 2

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

i:integer;

begin

for i:=1 to 8 do

read (a[i]) ;

for i:=1 to 8 do

if (a[i]) div 2 = 0 then a[i]: = (a[i]) * 3

else a[i]:=a[i]+2;

for i:=1 to 8 do

writeln (a[i]) ;

end.

тока добавь что числа в промежутке [0 ... 6]

Program Program1;

var

a:array [1 ... 8] of integer;

i:integer;

s:string;

begin

randomize;

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

for i:=1 to 8 do

begin

a[i]:=random (7) ;

writeln ('a[', i,']=', a[i]) ;

end;

for i:=1 to 8 do

if a[i] mod 2 = 0 then

a[i]:=a[i]*3

else

a[i]:=a[i]+2;

writeln;

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

for i:=1 to 8 do

writeln ('a[', i,']=', a[i]) ;

end.