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

На каком языке нужна программа? Пример на 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.