Поменять местами две половины массива, сохраняя их порядок.

[Леди Уинтер]

Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-50,50]. Поменять местами две половины массива, сохраняя их порядок.
Если массив бдет состоять из нечетного числа элементов,рисоединить центральный элемент к любой его половине!!!
Помогите пожалуйста!!!Буду очень признательна!

[Карась]

Вот код. Но у нево есть один недостаток. Надо чтоб строка заканчивалась пробелом. Если этого несделать то последнее слово программа непосчитает.
Решение этой проблеммы сводится к написанию одной строки...

procedure TForm1.Button1Click(Sender: TObject);
VAR i, z : Integer;
    S : String;
    Flag : Boolean;
begin
S := Edit1.Text; z := 0; Flag := False;
For i := 1 To Length(S) Do
  Begin
   If S[i] = 'а' Then Flag := True;
   If (S[i] = ' ') And (Flag = True) Then Begin
    Flag := False;
    z := z + 1; End;
  End;
Label1.Caption := IntToStr(z);
end;

АДД: ^x^..... нетуда.

[Леди Уинтер]

А как сделать так,чтобы строка всегда заканчивалась пробелом?

[Jeni]

Сообщение от Леди Уинтер

...Поменять местами две половины массива, сохраняя их порядок.
Если массив бдет состоять из нечетного числа элементов,рисоединить центральный элемент к любой его половине!!!

Этот код меняет половинки массива, учитывается нечетное количество элементов.

const
  N = 100; // Длина массива
var
  M: array[1..N] of Integer;
  I, L, X: Integer;
begin
  L := N div 2;
  if N mod 2 <> 0 then Inc(L);

  for I := 1 to N div 2 do
    begin
      X := M[I];
      M[I] := M[I + L];
      M[I + L] := X;
    end;
end;

[Карась]

А как сделать так,чтобы строка всегда заканчивалась пробелом?

Этот код был не к вашей задачи... я просто перепутал темы.....

Мой вариант кода вашей задачи....

program Project1;

{$APPTYPE CONSOLE}

var
  M: array[1..100] of Integer;
  I, L, N: Integer;
  y : Byte;

begin
Readln (N);

Randomize;
For i := 1 to N do begin
M[i] := Random(100) - 50; Write(M[i],' '); End;

Writeln;

If n mod 2 = 1 then
   Begin
   L := N div 2;
   For i := (L + 2) to N do Write (M[i],' ');
   For i := 1 to L do Write (M[i],' ');
   Write(M[L + 1]);
   End
Else
   Begin
   L := N div 2;
   For i := (L + 1) to N do Write (M[i],' ');
   For i := 1 to L do Write (M[i],' ');
   End;

  Readln;
end.

[Леди Уинтер]

Спасибо большое!Но нельзя ли всё это в Делфи перевести?

[Stilet]

Пример карася это и есть программа для Делфи, только консольная.

[Jeni]

Единственное, строку

M[i] := Random(100) - 50; Write(M[i],' '); End;

нужно поменять на

M[i] := 50 - Random(101); Write(M[i],' '); End;

[FliPP]

Jeni, при нечетном кол-ве элементов "центральный элемент" остается на своем же месте!!! а по условию дожен бы стать в начале или в конце.

[puporev]

Jeni, при нечетном кол-ве элементов "центральный элемент" остается на своем же месте!!! а по условию дожен бы стать в начале или в конце.

И это првда. В приведенных выше кодах нарушается последовательность элементов.
Чтобы этого избежать, нужно сделать примерно так.

uses crt;
var m:array[1..50]of integer;
    n,i,l,x:integer;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
  begin
   m[i]:=i;          //для наглядности введем числа по порядку
   write(m[i],' ');
  end;
readln;
l:=n div 2;
if n mod 2=0 then
for i:=1 to n div 2 do
   begin
     x:=m[i];m[i]:=m[i+l];
     m[i+l]:=x;
   end  else
if n mod 2<>0then
   begin
      x:=m[(n div 2)+1];    //ставим средний элемент на первую позицию
      for i:=(n div 2)+1 downto 1 do
      m[i]:=m[i-1];
      m[1]:=x;
//Для того, чтобы поставить средний элемент на последнее место, все делается в зеркальном отображении.
      for i:=2 to (n div 2)+1 do
         begin
           x:=m[i];m[i]:=m[i+l];
           m[i+l]:=x;
         end;
   end;
for i:=1 to n do
write(m[i],' ');
readln;
end.