Дан одномерный массив из 15 целых случайных чисел из диапазона [-10; 20] найдите сумму отрицательных чисел. Помогите прошу очень

Question

Информатика

Перегрина

13 декабря, 07:23

Дан одномерный массив из 15 целых случайных чисел из диапазона [-10; 20] найдите сумму отрицательных чисел. Помогите прошу очень

+1

Ответы (1)

Знаете ответ?

Кириллыч · Answer 1

Var a:array [1 ... 15] of integer;

i, sum:integer;

begin

For i:=1 to 15 do

begin

a[i]:=random (31) - 10;

Write (a[i],' ') ;

If a[i]<0

then

sum:=sum+a[i];

end; Writeln;

Writeln (sum) ;

end.