Массивы.

[Limon34]

Помогите решить задачку на массивы!
Вводится массив. Вынуть элемент, стоящий посередине в массиве и вставить его в начало. Например, если введен массив

5 1 4 6 2 10 8,

результат должен быть:

6 5 1 4 2 10 8
Заранее Спасибо!

[alex_fcsm]

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
randomize;
clrscr;
 for i:=1 to n do
  begin
   a[i]:=random(10)+1;
   write(a[i],' ');
  end;
j:=a[n div 2];
for i:=n div 2 downto 2 do
 a[i]:=a[i-1];
a[1]:=j;
writeln;
for i:=1 to n do
 write(a[i],' ');
end.

[А. Долматов]

ну и в чем проблема? создай переменную
raz1 - отсчет ведем с середина массива
zam-замена среднего элемента
zam:=a[i]; //средний элемент массива
for i:=raz1 downto 2 do
a[i]:=a[i-1]; //перемещаем слева стоящий элемент
a[1]:=zam; // ставим средний элемент в начало массива

[Limon34]

Сообщение от alex_fcsm

uses crt;
const n=10;
var a:array[1..n] of integer;
    i,j:integer;
begin
randomize;
clrscr;
 for i:=1 to n do
  begin
   a[i]:=random(10)+1;
   write(a[i],' ');
  end;
j:=a[n div 2];
for i:=n div 2 downto 2 do
 a[i]:=a[i-1];
a[1]:=j;
writeln;
for i:=1 to n do
 write(a[i],' ');
end.

Это было на Delphi сделано?Я вот числа массива вывести не могу Можете пожалуйсто скинуть папку проекта если осталась...

[alex_fcsm]

Сообщение от Limon34

Это было на Delphi сделано?Я вот числа массива вывести не могу Можете пожалуйсто скинуть папку проекта если осталась...

Это на Pascal. А что значит числа не можете вывести?

[Limon34]

Сообщение от alex_fcsm

Это на Pascal. А что значит числа не можете вывести?

да рандомом.Вроде все правильно,но выдает ошибку(вроде выход за придел).Я о массивах нечего не знаю и возможно что-то не правильно обозначил.

[alex_fcsm]

Пишите свою ошибку(код и название)