Благодаря этой программе, можно получать сумму как отрицательных, так и положительных чисел.
var a: array[0..100] of Integer; n,i,s,sum: Integer; begin writeln('Введите кол-во чисел, не привышающие число 100'); readln(n); Dec(n); for i:=0 to n do begin writeln('Введите ',i+1,' число'); readln(s); a[i]:=s; Inc(sum,a[i]); end; writeln('Полученный ответ: ',sum); end.
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
Writeln('Сумма отрицательных значений равна ',a.Where(t->t<0).Sum)
end.
Пример
n= 20
46 -29 -48 -34 36 13 45 50 22 -36 -5 -17 -19 -4 38 19 44 -8 -9 -35
Сумма отрицательных значений равна -244
var a: array[0..100] of Integer;
n,i,s,sum: Integer;
begin
writeln('Введите кол-во чисел, не привышающие число 100');
readln(n);
Dec(n);
for i:=0 to n do
begin
writeln('Введите ',i+1,' число');
readln(s);
a[i]:=s;
Inc(sum,a[i]);
end;
writeln('Полученный ответ: ',sum);
end.