Массив записей, текстовый файл

[alexalisa]

Есть задача: сведения об участниках конкурса содержат следующую информацию: фамилия, имя, адрес(город, улица, № дома, № квартиры), секция, набранный балл. Составить программу, которая считывает эти данные из текстового файла в массив записей (не менее 20-ти элементов). Составить процедуры и/или функции, которые позволяют: 1) найти средний балл по каждой секции 2) определить фамилии победителей по каждой секции 3) по каждому из городов определить фамилии участников, набравших наибольшие баллы (независимо от секции)

[alexalisa]

Не могу понять, как найти средний балл по каждой секции. Процедуру считывания из текстового файла сделала, думаю все вроде верно, но почему-то указывает на ошибку, что программа не закончена "ожидалось begin"

[phomm]

наступило молчание, только шорох битов на форуме не даёт сказать "it is the true silence" и в этой почти звенящей тишине Вы ощущаете , что Вам осталось сделать самое важное - выложить код, и тогда Вы станете настоящим и понимающим новичком )

[alexalisa]

Не могу понять как это сделать, но код я прикрепила как текстовый файл. Его не видно?

[Son Of Pain]

Убери вот эти две строчки в самом начале

       procedure Dannye_vvod;
      procedure Dannye_vyvod;

Для подсчета среднего балла - пройди в цикле по всем записям, подсчитай сумму балов, раздели на количество записей )

[phomm]

вот код, выкладываеть его лучше так, и быстрее и яснее (при чем для создания секции кода надо нажать кнопочку #)
Исправил косяки, что нашёл, но проверить не могу, ибо нет файла anketa.txt

program p;
const n = 21;
type
   T_address=record
        gorod:string[10];
        ulica:string[10];
        dom:word;
        kv:word;
    end;
   T_conkurs= record
        fam: string[10];
        name: string[11];
        address: T_address;
        cekciya: string[9];
        ball:word;
  end;
var   inf:array[1..n] of T_conkurs;
      kol_zap:word;
procedure Dannye_vvod;// процедура ввода из текстового файла
  var f:text;
      i:word;
  begin
      i := 0;
      assign(f,'anketa.txt');
      reset(f);
      while not Eof(f) do
            begin
            i := i + 1;
            with inf[i] do
            readln(f,fam,name,address.gorod,address.ulica,address.dom,address.kv,cekciya,ball);
            end;
      kol_zap:=i;
      close(f);
  end;
procedure Dannye_vyvod; //процедура вывода на экран
  var i:integer;
  begin
  writeln(' Фамилия    Имя    Адрес         Секция   Набранный балл    ');
  for i:=1 to kol_zap do
      begin
      with inf[i] do
  writeln(' ',fam,' ',name,' ',address.gorod,' ',address.ulica,' ',address.dom,' ',address.kv,' ',cekciya,' ',ball);
  end;
  end;
begin
     Dannye_vvod;
     Dannye_vyvod;
end.

добавка к словам Son of Pain - там ещё и строка незакрытая была

[alexalisa]

Я первый раз в форуме лично зарегистрировалась, хотя примерными программами пользуюсь постоянно. Спасибо за навигацию)))

[alexalisa]

Сообщение от Son Of Pain

Убери вот эти две строчки в самом начале

       procedure Dannye_vvod;
      procedure Dannye_vyvod;

Для подсчета среднего балла - пройди в цикле по всем записям, подсчитай сумму балов, раздели на количество записей )

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

[alexalisa]

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

вот код, выкладываеть его лучше так, и быстрее и яснее (при чем для создания секции кода надо нажать кнопочку #)
Исправил косяки, что нашёл, но проверить не могу, ибо нет файла anketa.txt
...
добавка к словам Son of Pain - там ещё и строка незакрытая была

А как мне в файле все прописать все подряд или как в программе, на каждую переменную 10, 11, ...22 символа???

А как подсчитать средний балл по каждой секции?? Мне нужно создать массив каждый элемент которого это сумма баллов по секциям и при том там же мне уже нужно найти средний балл. Для меня сложность в массиве создать массив...