Question

Помогите быстрее,14 задание

Answer 1

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger('N=');
  var f,g:file of integer;
  ReWrite(f,'f.bin');
  Randomize;
  for var i:=1 to n do Write(f,Random(101)-50); // [-50;50]
  Seek(f,0);
  ReWrite(g,'g.bin');
  var a,b:integer;
  Writeln('Содержимое файла f');
  Read(f,a); Write(a,' ');
  while not f.Eof do begin
    Read(f,b);
    Write(b,' ');
    Write(g,a*b);
    a:=b
    end;
  f.Close;
  Writeln;
  Writeln('Содержимое файла g');
  Seek(g,0);
  while not g.Eof do begin Read(g,a); Write(a,' ') end;
  g.Close
end.

Пример
N= 15
Содержимое файла f
43 14 -8 30 -50 -21 -15 -19 -19 -32 22 23 -36 19 -43
Содержимое файла g
602 -112 -240 -1500 1050 315 285 361 608 -704 506 -828 -684 -817