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

Question

Информатика

Лера

23 октября, 22:11

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

+3

Ответы (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.