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

[SAF]

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

[}0pa]

На держи 1-ую, ну, а вторая по-моему элементрная...Сам попробуй начать, если не полуется, то обращайся

uses crt;
const n=10;
var m:array[1..n] of integer;
  i,s:integer;
begin
{Ввод массива}
for i:=1 to n do m[i]:=random(1000);
{Вывод массива}
for i:=1 to n do Writeln('m[',i,'] = ',m[i]);
{Подсчет суммы}
s:=0;
for i:= 1 to n do
 begin
  s:=s+m[i];
  s:=-s;
 end;
write('Полученная сумма равна:',s);
end. 

uses crt;
const n=18;m=36;
var mas:array[1..n,1..m] of byte;
  s:array[1..n] of integer;
  i,j,k:integer;
begin
ClrScr;
{------------------------------------------------------------------------------}
{Ввод массива}
for i:=1 to n do
  for j:=1 to m do
   mas[i,j]:=random(2);
{------------------------------------------------------------------------------}
{Вывод массива}
for i:=1 to n do
 begin
  for j:= 1 to m do
   Write(mas[i,j],' ');
 writeln
 end;
{------------------------------------------------------------------------------}
{Определине кол-ва свободных мест в каждом вагоне}
For i:=1 to n do
begin
s[i]:=0;k:=0;
 for j:=1 to m do
  begin
	if mas[i,j]=0 then
	k:=k+1;
  end;
 s[i]:=k;
end;
for i:=1 to n do writeln('Кол-во свободных мест в вагоне ',i,' : ',s[i]);
readln
{------------------------------------------------------------------------------}
end.

Хотя ладно держи