Заполнить массив положительными и отрицательными числами на интервале от -40 до 40 и найти сумму отрицательных чисел,случайным элементом под элементом 25
Var a:array[1..100] of integer; i,n,sum:integer; begin randomize; n := 100; {Кол-во элементов в массиве} sum := 0; for i:=1 to n do a[i] := random(81) - 40; for i:=1 to n do if a[i] < 0 then sum := sum + a[i]; writeln(sum); end.
Var a:array of integer; i,n,s:integer; Begin write('Введите длину массива: '); readln(n); setlength(a,n+1); s:=0; for i:=1 to n do begin a[i]:=random(81)-40; if a[i]<0 then s:=s+a[i]; end; writeln('Сумма отрицательных элементов массива равна ',s); End.
begin
randomize;
n := 100; {Кол-во элементов в массиве}
sum := 0;
for i:=1 to n do
a[i] := random(81) - 40;
for i:=1 to n do
if a[i] < 0 then
sum := sum + a[i];
writeln(sum);
end.
Begin
write('Введите длину массива: ');
readln(n);
setlength(a,n+1);
s:=0;
for i:=1 to n do
begin
a[i]:=random(81)-40;
if a[i]<0 then s:=s+a[i];
end;
writeln('Сумма отрицательных элементов массива равна ',s);
End.