Заполнить массив положительными и отрицательными числами на интервале от -40 до 40 и найти сумму отрицательных чисел,случайным элементом под элементом 25
Заполнить массив положительными и отрицательными числами на интервале от -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.
Не нашли ответ?
Похожие вопросы