Задача про билеты (Турбо паскаль), определить число проданных билетов. Опции

[South Fruit]

В зрительном зале 25 рядов в каждом из которых 36 мест (кресел). Информация о проданных билетах хранится в двухмерном массиве , номера строк которого соответствуют номерам рядов , а номера столбцов - номера мест. Если билет на то или иное место продан , то соответствующий элемент массиваимеет значение 1, в противном случае - 0. Составить программу , определяющую число проданных билетов на места в 12-ом ряду.

Срочно помогите решить данную задачу.
Извините за заголовок, времечко давит

Сообщение отредактировано: South Fruit - 10.04.2007 12:18

[arhimag]

Код

var zal: array[1..25,1..36] of integer;
Radi : array [1..36] of integer;
k : integer;

procedure Buy_ticket;
var i,j,x,y : integer;
begin
  for i:= 36 downto 1 do begin
    if i>9 then
      write(i,': ')
    else
      write(i,' : ');
    for j:= 1 to 25 do
      write(zal[j,i],'|');
    writeln;
  end;
  Writeln('Vvedite rad, v kotorom Vi hotite sidet(ili 0, chtobi zakrit kassu):');
  Read(y);
  if y=0 then begin
    Writeln('Kassa zakrita:');
    Writeln('Vvedite nomer rada, kolichestvo zanatih mest kotorogo nuzno poschitat:');
    Read(k);
  end else begin
    Writeln('Vvedite mesto, na kotorom hotite sidet:');
    Read(x);
    If zal[x,y]=0 Then begin
      zal[x,y]:=1;
      inc(Radi[y]);
      Writeln('Pozdravlajem, Vi kupili bilet!');
    end else
      Writeln('K sozaleniju eto mesto uze zanato!');
  end;
end;


var i,j,count : integer;
begin
  for i:= 1 to 36 do begin
     Radi[i]:=0;
     for j:=1 to 25 do
        zal[j,i]:=0;
  end;
  k:=0;
  while k=0 do
    buy_ticket;
  write(radi[k]);
  readln;
  readln;
end.

Если я правильно все понял, то вот.