[Kurilka]

Всем привет.

Пожалуйста, кому не сложно, помогите со следующими заданиями:
#1

В зрительном зале 25 рядов, в каждом из которых 30 мест. Информация о проданных билетах хранится в двухмерном массиве. Если билет на какое-то место продан, то элемент массива имеет 1, в противном случае 0.

Составить программу, определяющую:
а) Общее количество проданных билетов и количество билетов, проданных в указанном ряду
б) Количество свободных мест в каждом ряду, какой ряд не пользуется спросом?
в) В каком ряду наибольшее количество подряд идущих свободных мест

#2

Даны 2 текстовых файла, содержащих числовые данные.
1 файл содержит 5 строк по 4 столбца, 2 файл – 4 строки по 4 столбца
а) Слить эти файлы в новый файл и найти количество чисел больше введенного с клавиатуры критерия
б) В новом файле найти количество чисел четных и кратных N, а также сумму чисел каждой строки
в) Определить среди сумм строк количество данных, сумма цифр которых является четным числом
(Для работы с файлами использовать диалоговые окна.)

#3

В двумерном массиве содержатся данные о доходах 5 предприятий с января по июнь месяц

Определить:
а) Средний доход по каждому предприятию, вывести список предприятий с доходом выше среднего
б) Найти суммарный доход за каждый месяц, определить месяц с максимальным доходом
в) Сохранить в файле список предприятий, отсортированный по убыванию среднего дохода

Это оставшиеся какие у меня сделать не получилось, как ни пытался. А завтра сдавать :-\ Очень прошу помочь!
Заранее благодарю.

[lmikle]

1. Обычная задача на массив.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95

var   Places : Array[1..30,1..25] Of Integer;   function FreeInRow(ARow : Integer) : Integer; var   I : Integer; begin   Result := 25;   For I := 1 To 25 Do     Result := Result - Places[ARow,I]; end;   function FreeTotal : Integer; var   I : Integer; begin   Result := 0;   For I := 1 To 30 Do     Result := Result + FreeInRow(I); end;   function BusyInRow(ARow : Integer) : Integer; begin   Result := 25 - FreeInRow(ARow); end;   function BusyTotal : Integer; begin   Result := 25 * 30 - FreeTotal; end;   function UnwantedRow : Integer; var   I : Integer;   N : Integer; begin   N := 0;   Result := 0;   For I := 1 To 30 Do     If N > FreeInRow(I) Then       Begin          Result := I;          N := FreeInRow(I);       End; end;   function MaxFreeLineInRow(ARow : Integer) : Integer; var   I : Integer;   F : Integer; begin   Result := 0;   F := 0;   I := 1;   While I <= 25 Do      Begin         Case Places[ARow,I] Of            0 : Inc(F);            1 :               Begin                  If Result < F Then Result := F;                  F := 0;               End;         End;         Inc(I);     End; end;   function GetMaxLineRow : Integer; var   I : Integer;   N : Integer; begin   Result := 0;   N := 0;   For I := 1 To 30 Do     If N <  MaxFreeLineInRow(I) Then       Begin          N := MaxFreeLineInRow(I);          Result := I;       End; end;   function GetMaxLineNumber : Integer; var   I : Integer;   N : Integer; begin   Result := 0;   For I := 1 To 30 Do     If Result <  MaxFreeLineInRow(I) Then       Begin          Result := MaxFreeLineInRow(I);       End; end;

Набора этих функций достаточно что бы решить первую задачу полностью.

Извини, над другими просто лень думать...

[Kurilka]

Благодарю, с первым разобрался. А со вторым можете помочь кто-нибудь?