Помогите пж!!!Кр по инфе
Дан массив из 10 случайных чисел заданым на интервали [-10;10] умножить положительные элементы на -2 , и ввести массив на экран

vari:integer;a:array [1..10] of integer;beginfor i:=1 to 10 do begina [i]:=Random (-10,10);end;for i:=1 to 10 do beginif (a [i] > 0) thena [i]:=a [i]*2;end;write('Полученный массив: ');for i:=1 to 10 do beginwrite (' ');write (a [i]);end;end.