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

[South Fruit]

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

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

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

[Айра]

Вот как то по красивее если не сложно укажи пожалуйста какие мы функции используем, только если это не сложно и не займет много времени.

Воть, если еще нужно:

Program zadacha;
uses crt;
var m: array[1..25,1..36] of integer;       {естественно массив и переменные, с ними ты уже наверно разобрался}
      k,i,j: integer;
begin
  k:=0;       {обнуляем количество проданных}  
  randomize;     {включаем генератор случайных чисел}
  for i:= 1 to 25 do        {это цикл со счетчиком, здесь он проходит по рядам} 
    begin
      write('ряд ',i,' ');   {оператор write выводит все в одну строку}
      for j:=1 to 36 do
        begin
          m[i,j]:=random(2);    {функция random генерирует целые числа в пределах 0<=x<диапазон,}
                                { а 2-йка тут - это и есть диапазон, начиная с нее числа не берутся}
          write('',m[i,j],' '); {опять вывод в строчку}
        end;
      writeln;    {оператор writeln каждый результат будет выводить на новой строчке}
    end;
  for j:=1 to 36 do  {опять цикл со счетчиком, только здесь идем по креслам}
    k := k + m[12, j];       {суммируем значения и получаем количество проданных}
    writeln('В 12 ряду ',k,' проданных билетов');        {выносим его на всеобщее обозрение)))}
end.

p.s. прости за задержку, не было возможности выйти в инет(((

Сообщение отредактировано: Айра - 12.04.2007 3:02