Нужно написать программу процедура сравнения типизированного файла(имя: f1.dat) и целочисленного массива.структура файла: х-целое у-вещественное. сравнение осуществляется поэлементно(1-ый элемент массива сравнивается со значением х 1-ой записи все значения совпали,то процедура возвращает строку true иначе false.

// pascalabc.net 3.3, сборка 1625 от 17.01.2018 // внимание! если программа не работает, обновите версию! type   tt=record       x: integer;       y: real   end; procedure compare(f: file of tt; a: array of integer; var r: string); begin   r: ='true';   if f.filesize< > a.length then begin       writeln('размер массива не соответствует количеству записей файла');       r: ='false';       exit       end;   f.seek(0);   var t: tt;   for var i: =0 to a.length-1 do begin       read(f,t);       if t.x< > a[i] then begin           r: ='false';           exit           end       end end; begin   var f: file of tt;   var n: =readinteger('n=');   writeln('введите ',n,' значений для сравнения');   var a: =readarrinteger(n);   var good: ='';   assign(f,'f1.dat'); reset(f);   compare(f,a,good);   writeln(good);   f.close end. внимание! поскольку входной файл не был представлен, программа не тестировалась! проверена лишь компиляция программы.

1010111 в десятичной системе счисления это  87 (1*2^6+0*2^5+1*2^4+0*2^3+1*2^2+1*2^1+1*2^0=64+0+16+0+4+2+1) 517 в десятичной системе счисления это 335 (5*8^2+1*8^1+7*8^0=320+8+7=335) 5e1 в десятичной системе счисления это 1505 (5*16^2+14*16^1+1*16^0=1280+224+1)