Question

Записать программу массив,состоящий из 30-ти чисел. Вычислить сумму отрицательная чисел.

Answer 1

begin
var a:=ArrRandom(30, -100, 100);
var k:=a.Where(t->t<0);
a.Print;
println();
println('Cумма: ', k.Sum);
end.

Answer 2

#include "stdafx.h"
#include <conio.h>
#include <iostream>
using namespace std;
int ch;int main(){
for (int i = -15; i < 15; i++) {
 cout << i << " ";
 if (i < 15) {
  ch = ch + i;
}
 }

cout << ch;

_getch();
    return 0;
}