Написать решение на языке 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.