Составьте программу, которая формирует массив из 15 случайных целых цифр от - 20 до 20 и чётные цифры делит на 2, а нечётные-умножает на 3

На каком языке нужна программа?

Пример на Paskal:

program zadacha;

var massiv: array [1 ... 15] of integer; i:byte; massiv2:array [1 ... 15] of real;

begin

randomize;

write ('Isxodnij massiv: ') ;

for i:=1 to 15 do

begin

massiv:=random (41) - 20;

write (massiv,' ') ;

end;

writeln;

writeln ('Massiv posle preobrazovanij: ') ;

for i:=1 to 15 do

begin

if massiv=0 then massiv2:=massiv

else

if massiv mod 5 = 0 then massiv2:=massiv*2

else begin

massiv2:=massiv;

massiv2:=massiv2/2;

end;

write (massiv2:0:1,' ') ;

end;

readln;

end.