Дин.стуктуры и файлы. pascal

[velgelmina]

Я писала эту задачу в сообществе.(и в "помощи студентам", надеюсь Простите за дублирование темы) Но попрошу еще и Вас.
помогите пожалуста решить две задачи. У меня практика, и задачи задали, не из области моего понимания Pascal (если уж так можно выразиться).

1.Дан список случайных целых чисел. Переверните список т.е. расставьте все числа в обратном порядке. Подсчитайте средне арифметическое его элементов. Создайте два новых списка в одном из которых запишите все элементы > 5, в другой все остальные элементы исходного списка.(всего в списке 15 чисел, и с помощью дин. структур=()

2.Текстовый файл содержит данные по отпечаткам пальцев известных преступников. Разработать программу, которая печатает информацию обо всех преступниках, чьи отпечатки совпадают с отпечатками найденными на месте преступления. Отпечаток пальцев, найденный на месте преступления вводится с клавиатуры. Отпечаток пальцев может быть представлен кодом из 36 символов и 12 вещественных чисел, полученных в результате измерений отпечаткаю Отпечатки пальцев считаются идентичными, если 35 из 36 символов совпадают и множества действительных чисел совпадают. Два действительных числа считаются "равными", если разница между ними составляет не более 5% от большего числа. Два множества измерений считаются совпадающими, если не менее 9 из 12 пар "равны".

Заранее большое спасибо.Помогите пожалуйста!</B></B></B></B></B></B></B>

[Jeni]

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

1.Дан список случайных целых чисел...

const
  N = 15;
var
  I, V: Integer;
  Count2, Count3: Integer;
  M1, M2, M3: array[1..N] of Integer;
begin
  // ====================================
  // Заполнить исходный массив случайными числами
  // Здесь числа будут от -50 до 49
  // Этот кусок кода можно оформить по-разному
  for I := 1 to N do
    M1[I] := Random(100) - 50;
  // ====================================

  // Поворот списка
  for I := 1 to N div 2 do
    begin
      V := M1[I];
      M1[I] := M1[N - I + 1];
      M1[N - I + 1] := V;
    end;

  // Заполнить дополнительные массивы
  Count2 := 0; // Кол-во элементов в M2
  Count3 := 0; // Кол-во элементов в M3
  for I := 1 to N do
    if M1[I] > 5 then
      begin
        Inc(Count2);
        M2[Count2] := M1[I];
      end
    else
      begin
        Inc(Count3);
        M3[Count3] := M1[I];
      end;

  // Вывод результатов
  ...

Вот только непонятно, что значит "с помощью дин. структур=()"?

[velgelmina]

упс. я не это хотела сказать=)
с помощью динамических переменных. т.е. используя при написании указатели аля p1,p2,p3:^integer; ну и head,curr,nil и т.д.
я совсем не понимаю, как их использовать.
пожалуйста, если не трудно помогите.

[JTG]

Довольно подробный мануал по динамическим структкрам, там есть и связанные списки, они-то тебе как раз и нужны.

http://valera.asf.ru/delphi/struct/ocher.html

[velgelmina]

понимаете, если бы все это было так просто. у меня есть учебники примерно с таким же описанием этих самых списков. но я в упор не могу понять как их можно использовать в моей задаче. А уж тем более вычислить сред.арифм. и т.п.... я с воскресенья над этим сижу. но, увы...
если файлы, это, конечно, еще не мрак, то списки, это для меня что-то из области фантастики.
пожалуйста помогите=(((

[velgelmina]

люди, ну помогите пожалуйста. практика в субботу заканчивается=((