Найти сумму отрицательных элементов одномерного массива целых чисел состоящих из 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]lt;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 до 400
for 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] lt; 0) then sum:=sum+a[i];
//выводим итог
writeln (Сумма отрицательных элементов массива - , sum);
end.