Решите пожалуйста программу в паскале:Составить программу, которая формирует массив из 10 случайных чисел от -30 до 30 и если третий элемент больше нуля,то поменять местами третий и пятый элементы, если третий элемент равен нулю, то увеличить оба эти элементы в 2 раза, иначе третий и пятый элементы сохраняют прежние значения.
Program pr; var a: array [1..10] of integer; i, m: integer; begin for i:= 1 to 10 do a:=-30+ random(30+30+1); for i:=1 to 10 do write(a:5); if a[3]>0 then begin m:= a[3]; a[3]:=a[5]; a[5]:=m; end; if a[3]=0 then begin a[3]:=a[3]*2; a[5]:=a[5]*2; end; for i:= 1 to 10 do write ( a:5); end.
