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

[South Fruit]

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

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

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

[South Fruit]

 Program zadacha;
uses crt;
var m: array[1..25,1..36] of integer;
      k,i,j: integer;
begin
  k:=0;       {obnulyaem kol-vo prodannih}
  randomize;
  write('   ');
  for i:= 1 to 36 do
  begin
  if i<10 then write (i,' ') else write(i);
  end;
  writeln;
  for i:= 1 to 25 do        {cikl so schtchikom prohodit po ryadam}
  begin
  if i <10 then
  write(i ,'  ')
  else write(i,' ');   {operator write vivodit vse v odnu stroku}
  for j:=1 to 36 do
  begin
  m[i,j]:=random(2);    {funkciya random generirue3t celie chisla v predelah 0<=x<diapazon,}
                                { a 2-yka eto diapazon, nachinaya s nee chisla ne berutsya}
  write('',m[i,j],' ');
  end;
  writeln;    
  end;
  for j:=1 to 36 do  {cikl so schetchikom po kreslam}
  k := k + m[12, j];       {summiruem znachenie i poluchaem kol-vo prodannih}
  writeln('v 12 ryadu ',k,' prodannih biletov');
readln;
end.

Добавлено через 50 сек.
Воть - Список стран (Турбо паскаль)