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

Question

Информатика

Вадиша

6 мая, 02:13

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

+4

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