ДАЮ 54 БАЛА
Массив из 13 положительных элементов заполнить целыми случайными числами из интервала (-5, 5)
Найти: Сумму или количество (положительных, отрицательных чисел)
ПОЖАЛУЙСТА НАПИШИТЕ В ПАСКАЛЕ

program bpab;

uses

crt;

var

i, sp, so, kp, ko: integer;

var

a: array [1..13] of integer;

begin

sp := 0;

so := 0;

kp := 0;

ko := 0;

for i := 1 to 13 do

begin

a[i] := random(11) - 5;

if a[i] >= 0 then

begin

sp := sp + a[i];

kp := kp + 1;

end

else

begin

so := so + a[i];

ko := ko + 1;

end;

end;

writeln('Исходный массив:');

for i := 1 to 13 do

writeln(a[i]);

writeln;

writeln('Сумма положительных: ', sp);

writeln('Сумма отрицательных: ', so);

writeln('Количество положительных: ', kp);

writeln('Количество отрицательных: ', ko);

readln;

end.