Масивы даных пересчетных типов Опции

[Desktop II]

Для каждой страны задать среднемесяную температуру за каждый месяц.

Задача простая, но почему то не могу понять как её правильно сделать масивы даных пересчетных типов.

[klem4]

uses crt;
const
   n = 10;
type

   TMonth = (jan, feb, mar, apr, may, jun, jul, aug, sep, oct, dec);

   TCity = record
      T     : array [TMonth] of single;
      name  : string;
   end;

   TDataBase = array [1..n] of TCity;

var
   c : TDataBase;
begin
   c[1].name := 'Moscow';
   c[1].T[jan] := -30; 
end.

Сообщение отредактировано: volvo - 5.11.2006 19:22