Найти сумму отрицательных элементов одномерного массива из 14 элементов. Элементы массива - случайные числа на отрезке [-3,5].

Question

Информатика

Григорий

16 июня, 21:38

Найти сумму отрицательных элементов одномерного массива из 14 элементов. Элементы массива - случайные числа на отрезке [-3,5].

+5

Ответы (1)

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

Авдотьюшка · Answer 1

Var a:array[1 ... 14] of integer; i:integer; k, ar:real; beginrandomize; for i:=1 to 14 do begina[i]:=-3+random (9) ; write (a[i]:3) ; end; writeln; k:=0; ar:=0; for i:=1 to 14 doif a[i]<0 thenk:=k+a[i]; writeln (k) ; end.