Нужна помощь с задачей по программированию.
Процедура сравнения последовательного файла (имя) и целочисленного массива
структура файла: х-целое, у-вещественное
сравнение осуществляется по-элементно
если все значения совпали, то процедура выводит true,иначе false.
я написал часть и уже запутался...
program failinif;
const n=8;
procedure sravnenie(c: integer);
var mass : array[1..n] of real;
f1:file of integer;
i:integer;
x:integer;
y:real;
begin
assignFile(f1,'f1.dat');
rewrite(f1);
readln(x,y);
write(f1,x,y);
closeFile(f1);
readln(mass[i]);
for i:=1 to n-1 do
if (mass[i]=x)and(mass[i+1]=y) then writeln('true')
else writeln('false');
end;
var a:integer;
begin
sravnenie(a);
end.
(ПАСКАЛЬ)