Массив состоит из 15 случайных элементов.получить массив,в котором элементы 1-ого массива имеют противоположный знак.В полученном массиве удвойте элементы,которые меньше -50

var a: array[1..15] of Integer;       i: Integer; Begin   for i := 1 to 15 do a[i] := random(100)-random(100);    writeln(a);    for i := 1 to 15 do begin      a[i] := 0-a[i];      if a[i]<-50 then a[i] := a[i]*2;     end;    writeln(a);  End.

Program programma; uses crt; var i: integer;     a:array [1..15] of integer; begin clrscr;       randomize;             for i:=1 to 15 do                     a[i]:=random(200)-100;             writeln('Массив:');       for i:=1 to 15 do                 write(a[i]:5);             for i:=1 to 15 do         begin       a[i]:=-a[i];       if  (a[i]<-50) then  a[i]:=a[i]*2;       end;        writeln; writeln; writeln('Новый массив:'); for i:=1 to 15 do                 write(a[i]:5);     READLN; end.