Автоматически задаётся массив из 15 элементов. Переставить их в ...

Motes

var a : array [1..15] of real; i : integer; c : real;begin randomize; for i := 1 to 15 do begin a[i] := random (100); write (a[i], ' '); end; writeln; for i := 1 to 7 do begin c := a[i]; a[i] := a[15 - i + 1]; a[15 - i + 1] := c; end; for i := 1 to 15 do write (a[i], ' '); readln;end.