МАССИВЫ Опции

[SAF]

плиз помагите решить задачи очень надо:
№1
дан массив a определить суммму законочередующейся последовательности a[1]-a[2]+a[3]-a[4]+...
условный оператор и операцию возведения в степень не использовать. размерность массива 10. при задании массива использовать датчик случайных чисел.
№2
в поезде 18 вагонов в каждом из которых 36 мест информация о проданных на поезд билетах храниться в двухмерном массиве номера строк которых соответствуют номерам вагонов а номера столбцов номерам мест если место на то или иное место продан то соответствующий элемент массива имеет значение 1 в противном случае 0 составить программу определяющую число свободных мест в любом из вагонов поезда.

[мисс_граффити]

а к чему такое ограничение:

операцию возведения в степень не использовать

?
как ее здесь можно использовать-то?

{Ввод массива}
for i:=1 to n do m[i]:=random(1000);
{Вывод массива}
for i:=1 to n do Writeln('m[',i,'] = ',m[i]);

зачем 2 цикла?

s:=0;
k:=1;
for i:= 1 to n do
begin
  s:=s+k*m[i];
  k:=-k;
end;