Работа с записями и одномерными массивами. (Borland Pascal)

[anna587]

*
Для всех вариантов и заданий:
- В заголовок окна программы записать свои данные: имя, фамилию и номер варианта.*
- Для всех вариантов количество записей в массиве ограничить интервалом [1..10].
- Перед вводом данных предложить пользователю ввести количество записей от 1 до 10.
- После окончания ввода последней записи вывести все введённые значения на экран, а затем вывести результат их обработки.
Например:
Имя: Иванов
Пол: М
Возраст:20
-------------
Имя: Петров:
Пол: М
Возраст: 25
--------------
Имя: Сидорова
Пол: Ж
Возраст: 22
--------------
Результат: средний возраст мужчин – 22.5
--------------
Задание варианта: Создать запись «Кинофильм» с полями: «Название» (строка), «Страна» (строка), «Стоимость производства» (целое число), «Доход от проката» (целое число). Названия кинофильмов не повторяются.
Посчитать среднюю окупаемость (доход с вычетом производства) фильмов.

[Alex11223]

И?

Покажите свои наработки, конкретные вопросы и т.п.

Или в раздел Фриланс если вы не хотите ничего делать, а ищете кого-то, кто выполнит ваши задачи за вознаграждение.

[anna587]

скорее всего нужно закомментировать 13,15 и 29 строки,но я не знаю как правильно это сделать,выдет ошибку

uses Crt;
const W1=25;
type
   TFilm = record
      Title: String[63];
      Country: String[31];
      Cost, Rev: LongInt;
   end;
var
   Films: array [1..10] of TFilm;
   n, i: Integer; s: LongInt;
begin
   Window(1,1,Lo(WindMax)+1,Hi(WindMax)+1); TextAttr:=$70; ClrScr; 
   Write('Имя Фамилия, вариант X');
   Window(1,2,Lo(WindMax)+1,Hi(WindMax)+1); TextAttr:=$1E; ClrScr;
   repeat
      Write('Количество записей [1..',High(Films),']: ');
      ReadLn(n);
   until n in [1..High(Films)];
   for i:=1 to n do with Films[i] do begin
      WriteLn; WriteLn('Фильм ',i);
      Write('Название: ':W1); ReadLn(Title);
      Write('Страна: ':W1); ReadLn(Country);
      Write('Стоимость производства: ':W1); ReadLn(Cost);
      Write('Доход от проката: ':W1); ReadLn(Rev);
      Inc(s,Rev-Cost);
   end;
   WriteLn; WriteLn('Средняя окупаемость: ',s/n:0:2);
   NormVideo;
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

да вроде бы всё нормально. А какую ошибку выдаёт?