Помогите, кто разбирается в матрицах
 

Задан массив( размерность-3) записей следующей структуры :
1. название фирмы
2.тариф за подачу транспорта к месту погрузки(Тпод)
3.расстояние между транспортным предприятием и нефтебазой(L)
4.количество рейсов для выполнения перевозок(N).
Рассчитать стоимость подачи транспортных средств под погрузку (спод):спод=Тпод*Т*Д
определить среднюю величину стоимости подачи транспортных средств.
program abc;
uses crt;
const n = 3;
type
trafic = record
Name : string;
tarif : double;
length : double;
reis : word;
end;
zakaz = array[1..n] of trafic;
var
i, j : integer;
res : double;
a:zakaz;
begin
clrscr;
for i := 1 to n do
begin
writeln ('введите тариф за подачу транспорта');
readln(a[i].tarif);
writeln ('введите расстояние');
readln(a[i].length);
writeln ('введите количество рейсов');
readln(a[i].reis);
end;
for i := 1 to n do
begin
res:= res+(a[i].reis*a[i].tarif*a[i].length);
end;
writeln('общая сумма',res);
writeln('средняя стоимость:',res/n);
readkey;
for i :=1 to 9 do
begin
for j :=1 to 10 do
write ( a [ j ]:4);
writeln ;
end ;
end.
Что надо добавить ,чтобы при ответе получилась матрица ?????

Владимир, вернитесь !!!P.S по-братски!
 

:sigh:Владимир !

Да здесь я! Правда, на работе, поэтому отвлекают от форума на всякую ерунду. :)Как Вы это себе представляете, если в задаче требуется определить число?

Уважаемый, Владимир!
 

Володя, наша преподавательница настаивает на матрицы :bdsm:Что нам делать??

Организуйте красивый вывод на экран содержимого ваших массивов :)

ПыСы: сильно подозреваю. что под матрицей преподаватель имеет в виду табличный вывод данных :))

ПыСы2: капсить без повода неприлично :(