Опишите модель решения поставленной задачи, соблюдая следующие пункты:
a) Входные данные программы
b) Выходные данные программы
c) Цель проектирования программы
d) Назначение программы
e) Область применения программы

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

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
  a.Println;
  var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
  var ip:=a.FindIndex(x->x>0)+1;
  Writeln('Номер максимального по модулю элемента: ',imax+1);
  Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.

Пример
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7

//PascalABC.NET
var
    nt, dt : integer;
begin
    var n1 := 1; var d1 := 1;
    var n := 2; var d := 1;
    var i := 2;
    while i < 5 do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
        i += 1
    end;
    writeln(n,'/',d);
    
    n1:=1; d1:=1;
    n:= 2; d:=1;
    while (abs(n/d - n1/d1) > 0.001) do begin
        nt := n; dt := d;
        n := n + n1; n1 := nt;
        d := d + d1; d1 := dt;
    end;
    writeln(n,'/',d,'-',n1,'/',d1,'=',n/d-n1/d1)
end.