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

[olesia @@@]

ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! Информационная таблица по расходу электроэнергии на предприятии по 5 цехам заполняется каждый месяц по мере поступления данных. Вывести таблицу с указанием месяцев и названий цехов.
Цех Расход энергии по месяцам, МВт-час
1 2 3 4 5 6 7 8 9 10 11 12
Литейный 100 …
Кузнечный … …
. . . . .
Кроме того:

Найти среднее потребление электроэнергии за каждый месяц и вывести вместе с исходными данными в таблице.
Сама ума не приложу как сделать

[Arigato]

Для каждого цеха завести массив из 12 элементов, то есть итого будет двумерный массив 5*12. Далее в соответствующие ячейки вбить исходные данные...

[olesia @@@]

Я не пойму данные при этом любые вбивать или они сами должны расчитаться?

[Arigato]

Как это любый, вы чего? Пройдитесь по цехам, возьмите у них данные и вбейте в программу.

[olesia @@@]

я учусь заочно и это всего лишь задача.
я первый раз в жизни сталкиваюсь с паскалем.

[Lokos]

Сообщение от olesia @@@

я учусь заочно и это всего лишь задача.
я первый раз в жизни сталкиваюсь с паскалем.

какая разница причем тут паскаль, на с++ к примеру будет отличаться только синтаксис логика задачи будет такая же. уточните у преподавателя как должны заноситься данные

//создание масива
var
   mas:array[0..4,0..11]of Integer;
//вывод среднего по каждому цеху 
   for i=0 to 4 do
      begin
         for j=0 to 11 do
            sred=sred+mas[i,j];
         print(sred/12);
     end;

[Serge_Bliznykov]

Сообщение от Lokos

//вывод среднего по каждому цеху 
   for i=0 to 4 do
      begin
         for j=0 to 11 do
            sred=sred+mas[i,j];
         print(sred/12);
     end;

Этот код с ошибкой.
переменную sred нужно в начале цикла ОБНУЛЯТЬ!
Обязательно! (про то, что у вас намешан код из Паскаля и С я даже упоминать не буду

Примерно так:

  //вывод среднего по каждому цеху 
   for i := 0 to 4 do
      begin
         sred := 0;
         for j := 0 to 11 do
            sred := sred + mas[i,j];
         WriteLn('Nomer ceha ',i+1,'  srednee = ', sred/12);
     end;

p.s. а зачем индексировать массивы от нуля?! От единицы более удобно (и более привычно для Паскаля! )


p.p.s. Если помогаете новичкам, старайтесь относится к примерам кода более внимательно. Хотя бы алгоритм должен быть без ошибок...