Дан одномерный массив из 25 целых случайных чисел из диапазона [-50; 30] а) найдите количество отрицательных чисел

Question

Информатика

Ефросиньюшка

24 ноября, 13:01

Дан одномерный массив из 25 целых случайных чисел из диапазона [-50; 30] а) найдите количество отрицательных чисел

+3

Ответы (1)

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

Арсеньич · Answer 1

Var k, i:integer; R:Array[1 ... 25] of integer; Beginfor i:=1 to 25 do beginR[i]: = random (80) - 50; write (R[i]:3) ; if R[i] < 0 then k: = k + 1; end; writeln; write ('количество отрицательных чисел = ', k) end.