массивы

[seilova]

1. Дан одномерный массив. Переписать его элементы в обратном порядке без использования дополнительного массива.
2. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить скорости двух самых быстрых автомобилей.
подскажите плиз как это сделать?

[Cannibal]

var t:<тип как у элеменрта массива>
begin
for i:=1 to n div 2 do begin
  t:=a[i]; a[i]:=a[n-i+1]; a[n-i+1:=t;
end
end;

2

var:max1,max2:integer;
begin
max1:=-1;
for i:=1 to 40 do
  if a[i]>max1 then begin
   max2:=max1;
    max1:=a[i];
end
end

[seilova]

огромное спасибо