Задача Pascal на динамические структуры данных

[Citromon]

Добрый день. Помогите, пожалуйста, решить задачу.

Проводится мониторинг людей,которые ответить на m вопросов, в качестве ответов давая оценку от 0 до 5.

Программа берёт информацию из текстового файла, в котором в первой строчке указано число респондентов, во второй - оценка первого респондента,в третьей строчке - оценка 2 респондента, в четвёртой строчке - 3-го и т.д.

Просчитать средний арифметический ответ по каждому вопросу.

Я составил такой план действий:
1. чтение количества человек;
2. выделение под матрицу память;
3. инициализируем матрицу (берём инфо из файла);
4. подсчитываем среднее арифметическое по каждому вопросу;
5. распечатываем (выводим на экран) матрицу и средние арифметические по каждому вопросу;
6. освобождаем память.

Т.е. нужно написать процедуры, условно называемые getmemory, init (инициализация), work (подсчёт), print, freemem.

Искренне надеюсь на помощь.

[BDA]

uses
  CRT;

var
  a: array of word;
  n, m, i, j, b: integer;
  f: text;

begin
  assign(f, 'in.txt');
  reset(f);
  readln(f, n, m);
  setlength(a, m);
  for i := 0 to m - 1 do
    a[i] := 0;
  for i := 1 to n do
    for j := 0 to m-1 do
    begin
      readln(f, b);
      a[j] := a[j] + b;
    end;
  for i := 0 to m - 1 do
    writeln(i + 1, ' question: ', a[i] / m:3:3);
  close(f);
  readln;
end.

n людей отвечают на m вопросов (сначала m ответов первого человека и т.д.).
входной файл вида:

3 4
1
2
3
4
0
0
0
0
5
5
5
5

[Citromon]

Спасибо, BDA.

Может, кто-нибудь знает, как решить задачу используя динамические структуры данных?

[BDA]

Citromon, a: array of word (свободный массив) является динамической структурой данных (как мне кажется).

[Citromon]

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

[BDA]

Свободный - динамический (длина задается во время выполнения).
В код выше закралась ошибка.

writeln(i + 1, ' question: ', a[i] / m:3:3);//должно быть n

Переписал с использованием getmem, freemem.

Uses CRT;
type
  arr=array[1..1] of byte;
  table=^arr;

var
  n, m, i, j,s: integer;
  b:byte;
  t:table;
  f: text;

begin
  assign(f, 'in.txt');
  reset(f);
  readln(f, n, m);
  getmem(t,n*m*sizeof(arr));
  for i := 0 to n-1 do
    for j := 0 to m-1 do
      readln(f, t^[i*n+j]);
  for j := 0 to m - 1 do
  begin
    write(j + 1, ' question:');
    s:=0;
    for i := 0 to n - 1 do
    begin
      write(t^[i*n+j]:2);
      s:=s+t^[i*n+j];
    end;
    writeln('   Average: ',s/n:3:3);
  end;
  close(f);
  freemem(t,n*m*sizeof(arr));
  readln;
end.

Даже не знаю, как разбивать на процедуры. Код сильно разрастется и засорится лишними действиями (сейчас одновременно происходят распечатывание и подсчет).

[Citromon]

Огромное спасибо!

[Serge_Bliznykov]

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

Citromon, a: array of word (свободный массив) является динамической структурой данных (как мне кажется).

BTW, uses CRT и SetLength() в одной программе немножко диссонируют - в TurboPascal не было динамических массивов.

[Citromon]

Вот никак не могу понять, почему первая программа компилируется в PascalABC.net, а вторая - нет?

В Borland Pascal наоборот, компилируется вторая, а первая - нет. В TP в первом варианте указывает на ошибку при описании массива array of word, а в PascalABC.net пишет, что незнает что такое getmem.

[BDA]

Борланд Паскаль не поддерживает динамические массивы (как уже заявил выше Serge_Bliznykov), а Паскаль ABC.net поддерживает. Насчет getmem в ABC.net не знаю