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

Question

Информатика

Риммура

3 января, 03:13

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

+4

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