Нужна с по программированию. процедура сравнения последовательного файла (имя) и целочисленного массива структура файла: х-целое, у-вещественное сравнение осуществляется по-элементно если все значения совпали, то процедура выводит 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. (паскаль)
