сформировать массив с помощью Random от - 30 до 30. Размер 10 элементов. Сколько в массиве отрицательных элементов?

Question

Информатика

Савватий

17 марта, 06:34

сформировать массив с помощью Random от - 30 до 30. Размер 10 элементов. Сколько в массиве отрицательных элементов?

+3

Ответы (1)

Знаете ответ на вопрос?

Малина · Answer 1

Begin

randomize;

for i:=1 to n do

a[i]:random (60) - 30;

k:=0;

for i:=1 to n do

if a[i]<0 then k:=k+1;

writeln ('k=', k) ;

end.

язык программирования - Pascal, k - количество отрицательных элементов