Инвертирование массива

[netiv]

uses crt;
var i,x,n:integer;
min,b:real;
var a: array [1..1000] of real;
begin
writeln ('Введите колличество элементов массива');
readln(n);
for i:=1 to n do begin
write('Введите[',i,']');
readln(a[i]);
end;
min:=a[1];
x:=1;
for i:=1 to n do 
if (a[i]<=min) then begin 
min:=a[i];
x:=i;
end;
writeln('Номер самого последнего минимального элемента массива ',x,'; значение ',min);
readln;
end.

Дальше, надо Инвертировать первую половину массива.
Помогите пожалуйста

[TinMan]

Помочь - не проблема. Проблема - понять, что тебе нужно.
Что такое "Инвертировать"?
Среди общепринятых такого термина нет. Есть инверсия в геометрии, которая означает обратную пропорцию.. Тебе надо, что ли, 1/x?
Или просто надо переставить в обратном порядке? Не ленись, чем точнее и подробнее напишешь, тем скорее получишь ответ. Твоя сестра таланта тебе же и вредит..

[netiv]

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

Помочь - не проблема. Проблема - понять, что тебе нужно.
Что такое "Инвертировать"?
Среди общепринятых такого термина нет. Есть инверсия в геометрии, которая означает обратную пропорцию.. Тебе надо, что ли, 1/x?
Или просто надо переставить в обратном порядке? Не ленись, чем точнее и подробнее напишешь, тем скорее получишь ответ. Твоя сестра таланта тебе же и вредит..

Под инвертированием в данном случае имеется ввиду перестановка первого и последнего элементов данной части массива, второго и предпоследнего и т.д.
Только мне надо инвертировать вторую половину массива (там опечатка)

[ACAB59]

это действие называется транспонировать, а не "инвертировать"!

во первых у тебя ошибка в var'e не может быть массив и переменные разного типа!!

и почему у тебя два var'a??

[netiv]

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

почему у тебя два var'a??

Это просто опечатка

[ACAB59]

как я понял тебе нужно что то типа такого??

uses crt;
const
N=10;
var
a:array[1..N] of real;
b:array[1..N] of real;
i, d: byte;
begin
clrscr;
write('Ввести d ');
read(d);
 for i:=1 to d do
 begin
 write('Ввести массив ');
 read(a[i]);
 end;
  for i:=1 to d do
  begin
  b[i]:=a[d-i];
  writeln('Массив в ', b[i]);
end;
 end.

вернее вот так а то не то действие написал))

[ACAB59]

и вообще можно полное условие задачи???

[netiv]

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

как я понял тебе нужно что то типа такого??

Нет не совсем, массив должен быть одномерным и один. И мне не надо записать его наоборот, мне надо заменить элементы начиная со середины массива до конца, таким вот образом (Заменить первый с последним, второй с предпоследним, третий с предпредпоследним и т.д).

Условие:
Определить номер и значение самого последнего минимального элемента массива. Инвертировать вторую половину массива.

[TinMan]

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

(Заменить первый с последним, второй с предпоследним, третий с предпредпоследним и т.д).

Может, все-таки, 501-й с последним, 502-й с предпоследним..?

[netiv]

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

Может, все-таки, 501-й с последним, 502-й с предпоследним..?

Да, да, только размер массива вводить с клавиатуры.