Паскаль. Обработка записей.

[qwertyuiop12]

Даны массивы: N1,...,N5- номерные знаки автомашин.
L1,...,L5-пробег за месяц в км.
T1,...,T5- обработанные часы в течении месяца.

Напечатать два списка:
1) Список автомашин,у которых среднесуточный пробег за месяц менее 300км
2)Список автомашин, у которых среднесуточное время в наряде более 10ч.

[notHaker]

ввсё бы зделал, но не догоняю... среднесуточный - это как?

[qwertyuiop12]

вот и я сам не понял))

[notHaker]

L1 - L5 - это пробеги по месяцам

[qwertyuiop12]

да...тут как я понял через массивы надо делать...

[notHaker]

...
type
  TMyRec = record 
    _code : string;
    _prob : integer;
    _time : integer;
  end;
var
  arr : array[1..5] of TMyRec;
  i : integer;
  buffer : integer;
begin
  for i := 1 to 5 do
  begin
    arr[i]._code := i; {номерные знаки}
    writeln('mecyac : ',i);
    write('vvedite probeg : '); readln(arr[i]._prob);
    write('vvedite vremya : '); readln(arr[i]._time);
  end;
  
  for i := 1 to 5 do
    if (arr[i]._prob div 30) < 300 then
    writeln('<300 : code : ',arr[i]._code);
  writeln('--------')
  for i := 1 to 5 do
    if (arr[i]._time div 30) > 10 then
    writeln('>10 : code : ',arr[i]._code);
end.

Ну незнаю, как то так... Задача какая то мутная.