Одномерные массивы

[Дашуня]

В одномерном массиве,состоящем из n целых элементов,вычислить:
1)количество четных элементов, стоящих на нечетных местах в массиве;
2)Сумму элементов массива. расположеных до последнего максимального элемента в массиве;
3)Поменять местами первую и вторую половины массива(первый элемент с последним, второй с предпоследним и т.д.)

[Sm1Le]

const n;
n:=10;
arr[n]:integer;
x:integer;
x;=0;
For i:=1 to N do 
 begin
  if (i mod 2<>0 ) then 
   begin
    if (arr[i] mod 2=0) then 
     begin
      x:=x+1;
     end;
   end; 
 end;

чучуть подкорректируй ....

summ:integer;
max:integer;

max:=arr[1];
for i:=2 to N do 
begin
 if max<arr[i] then 
  begin
   max:=arr[i];
  end;
end;
for i:=1 to N do 
begin
if arr[i]<>max then 
begin
summ:=summ+arr[i];
end
else
break;
end;

-тоже самое ... =)

element:integer;
for i:=1 to (N div 2) do 
begin
 element:=arr[i];
 arr[i]:=arr[N-i+1];
 arr[N-i+1];=element;
 
end;

- Проверь =)) ( просто Паскаля нету =)))