Работа с информацией сложной структуры, Помогите решить задачу Опции

[Hammer]

Составить программу, помогающую сообщать сведения о местах на авиарейсы из Моск-вы в Ленинград на календарный месяц (30 дней). В памяти хранится информация о мес-тах на рейс на заданное число в виде матрицы, в которой номер строки – ряд, номер столбца – номер места в ряду (всего 25 рядов, по шесть мест в ряду). Элемент матрицы может иметь следующие значения: 0 — место свободно, 1 — место продано, 2 — место забронировано. Считать, что в день имеется один рейс. По требованию сообщать сле-дующую информацию:
о свободных местах на заданное число;
о проданных местах на заданное число;
о количестве свободных мест на весь месяц;
о брони на заданное число.


Подкиньте пару идей...

[Guest]

Код

program pr2;
type infotype=array [1..26,1..6] of integer;
var
info: file of infotype;
f:string;
a:infotype;
i,j,k:integer;
begin
writeln ('Введите имя файла ');
readln(f);
Assign(info,f);
Rewrite(info);
randomize;
for k:=1 to 30 do
begin
for i:=1 to 25 do
for j:=1 to 6 do
begin
a[i,j]:=random(3);
end;
write(info,a);
end;
close (info);
readln;
end.

Че здесь не так? Объясните пожалуйста


И как потом считать эти матрицы из файла, чтобы с ними можно было проводить дальнейшие действия, описанные в условии?

Сообщение отредактировано: volvo - 19.12.2004 17:32