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

uses crt;var s,i:integer; a:array[1..27] of integer;begin clrscr; randomize; s:=0; for i :=1 to 27 do begin a[i]:=random(700)-300; write(\'a[\',i,\']=\',a[i],\'; \'); if a[i]<0 then s:=s+a[i]; end; Writeln(\'Cумма отрицательных=\',s);end.

С++#include using namespace std;const int N=27;int main() {int a[N];int sum=0;int i;for (i=0;i

Var i,sum: integer; a: array [1..27] of integer;begin//заполняем массив рандомными числами в интервале от -300 до 400for i:=1 to 27 do a[i]:=random(-300,400);//выводим массивwriteln(\'Исходный массив\');for i:=1 to 27 do write(a[i], \' \');Writeln();//находим суммуsum:=0;for i:=1 to 27 do if (a[i] < 0) then sum:=sum+a[i];//выводим результатwriteln (\'Сумма отрицательных элементов массива - \', sum);end.