Написать решение на языке Pascal/ Определить частное от деления суммы положительных элементов массива на модуль суммы отрицательных элементов. Массивы только начали проходить, написать как можно проще.

const   n = 15; var   a:array[1..n] of integer;   i,sp,sn: integer; begin   Randomize;   Writeln('Элементы массива');   sp:=0; sn:=0;   for i := 1 to n do   begin     a[i] := Random(51)-25;     Write(a[i]:4);     if a[i]<0 then sn:=sn+a[i]     else sp:=sp+a[i]   end;   Writeln;   Writeln('Частное: ',sp/abs(sn)) end. Тестовое решение: Элементы массива    2 -25   0   5  24   4   3   1  12  13  10   1   6  13 -17 Частное: 2.23809523809524 Вариант со вводом данных с клавиатуры: const   n = 15; var   a:array[1..n] of integer;   i,sp,sn: integer; begin   Writeln('Вводите через пробел элементы массива');   sp:=0; sn:=0;   for i := 1 to n do   begin     Read(a[i]);     if a[i]<0 then sn:=sn+a[i]     else sp:=sp+a[i]   end;   Writeln('Частное: ',sp/abs(sn)) end.