массив))

[seilova]

1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива.
посмотрите пожалуйста что я тут натворила
const n=10;
var i:integer;
mas:array[1..n] of integer;
begin
mas[1]:=0;
mas[2]:=2;
for i:= 3 to n do
mas[i]:=mas[i-1]+mas[i-2];
end.


2. Имеется информация о баллах спортсменов-пятиборцев. Определить, в каком виде спорта каждый спортсмен получил максимальную сумму баллов.

[Serge_Bliznykov]

1-я.
один простой цикл:

for i:=1 to (N div 2) do begin
   temp :=  mas[i];
   mas[i] := mas[n-i+1];
   mas[n-i+1] := temp
end;

[Alex11223]

Или так:

for i:=0 to n div 2 - 1 do
begin
   mas[i+1]:=mas[i+1]+mas[n-i];
   mas[n-i]:=mas[i+1]-mas[n-i];
   mas[i+1]:=mas[i+1]-mas[n-i];
end;

И вы вначале как-то непонятно массив заполняете.

[seilova]

огромное спасибо))) а вторую подскажите пож))