Записать в файл последовательного доступа N действительных чисел. Найти разность первой и последней компонент файла.
Вот мой ключ: помогите кто как может!!!!!!!
Var t:text; var a=array [1..100] of real;
Var i:integer;
Begin
Assign(f,’123.dat’);
Rewrite(f);
Begin
Writeln(‘n=’);
For i:=1 to n do begin writeln(‘vvodi elements:’); readln(a[i]);
Procedure raznica (var a:f; var m:a);
Var i:integer;
Begin for i:=1 to n do (a[1]-a[i]:=m) ; end; writeln(m[i]);
Readln(m[i]); end.