написать программу для решения следующей задачи вычислить модуль суммы отрицательных элементов числовой последовательности

uses crt; 
var a:array [1..10] of integer;
i,sum:integer; 
begin   
Write(Последовательность чисел: );   
 For i:=1 to 10 do   
begin   
randomize;   
a[i]:=random(10)-5;   
write(a[i]:3);   
 if a[i]<0 then sum:=sum+a[i];   
end;   
Writeln;   
Writeln(Модуль = , abs(sum));
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.