Обработка двумерного массива.

[maxim260489]

Статистическое управление имеет сведения о стоимости некоторого минимального набора из N продуктов по месяцам года (N>=3).Ввод продуктов и стоимости проводится с клавиатуры. Вывести сведения в виде таблицы с заголовками строк и столбцов.

Продукт Стоимость по месяцам
1 2 3 4 5 6 7 8 9 10 11 12
Колбаса
Молоко
…
Кроме того: найти среднюю стоимость за год каждого продукта и вывести как дополнительный столбец таблицы.

[Vanta11a]

Итак. Имеем массив 14 x n, где n - количество продуктов.
В 1й столбец массива вносятся названия продуктов.
Во 2й - 13й столбец массива - цены по месяцам.
В 14й столбец массива вводится рассчитанное среднее значение

Вывод реализуется как-то так:

for i:=1 to 14 do
begin
for j:=1 to n do
write(a1[i,j],' | ');
writeln;
end;

т.е. выводим строку поочередно и переводим каретку. Можно сделать проверку на название (т.е. на 1й столбец).