задачи на Паскаль:)

[seilova]

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

[Mad_Cat]

1)

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

2) упорядочить по убыванию

for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;

и взять 1-е две