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

[SAF]

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

[volvo]

}0pa, а теперь ВНИМАТЕЛЬНО посмотри, что ты делаешь:

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

массив = <1, 5, 19>
s = 1 -> -s -> s = -1
s = -1 + 5 = 4 -> -s -> s = -4
s = -4 + 19 = 15 -> -s -> s = -15

1 - 5 + 19 чему должно равняться?

[}0pa]

массив = <1, 5, 19>

Ха ха ха...А у в условие четное кол-во элементов массива

размерность массива 10

. Не так ли?