procedure

[type_Oleg]

Я вообще не пойму, что вам надо сделать.
В задании - про массив.
В программе - открываете текстовый файл, пытаетесь считать из него числа типа real.
Нужно массив из файла извлечь?
Тогда откуда брать файл, или как его создать?
Или неважно откуда, лишь бы был массив действительных чисел?

[Настя М]

Да! Не важно . Любой текстовый файл. И считываем из него числа в массив, а дальше работаем с массивом.

[type_Oleg]

Я не знаю, как из любого текстового файла извлечь числа.
Например, скопируйте текст этого поста в Блокнот, сохраните, как lab7b.txt , и какие числа real можно из него извлечь?

[Настя М]

Я это делала:
assign(f1,'c:\lab7b.txt');
reset(f1);
i1:=1;
c1:=1;
n1:=0;
while not eof(f1) do
begin
readln(f1,a1[i1]);
i1:=i1+1;
n1:=n1+1;
end;

[ViktorR]

Я тут написал процедуру, которая выполняет условие Вашей задачи:
найти порядковый номер вещественного числа в массиве, которое ближе всего к целому числу.
Т.е. ищется число с минимальной или максимальной (до единицы) дробной частью. Переменные написал так, как мог. Думаю, что если надо переименовать, то восстановите так, как Вам надо.

const n = 80; {число элементов в массиве}
type
   al = array[1..n] of real;

procedure qwe(a : al; var m : integer);
var i : integer;
   min, fr1, fr2 : real;
begin
   min := frac(a[1]); {дробная часть первого числа из массива}
   m := 1;
   for i := 2 to n do
   begin
      fr1 := frac(a[i]); {дробная часть следующего числа}
      fr2 := 1 - fr1;   {дополнение до единицы}
      if ((fr1 < min) OR (fr2 < min)) then {дробная часть, или дополнение}
                                           {меньше ранее установленного минимума}
      begin
         m := i;  {сохраним порядковый номер элемента}
         if fr1 < fr2 then {установим новый минимум}
            min := fr1
         else
            min := fr2;
      end;
   end;
end;

...

Как-то так, ...

[type_Oleg]

Настя МВы в курсе, что
- файлы бывают не только текстовые, но и типизированные, например типа real,
- массив можно не только загрузить с файла, но и создать в программе, например генератором случайных чисел, или ввести с клавиатуры, если массив небольшой ?
ViktorR, что-то сложно очень.

[Настя М]

Записываем числа в блокнот и сохраняем как lab7b.txt. ПОТОМ копируем его на диск ,например С, а дальше в программе открываем файл и... . Я это выше написала.

[Настя М]

Большое спасибо!