Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным образом в диапазоне от - 13 до 13

Question

Информатика

Александринка

16 сентября, 03:50

Найти количество отрицательных элементов в массиве из 14 чисел выбранных случайным образом в диапазоне от - 13 до 13

+5

Ответы (1)

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

Альбиныч · Answer 1

Program chik;

var a, k, i:integer;

begin

k:=0;

for i:=1 to 14 do

begin

a:=trunc ((13 - (-13)) * random-13) ;

if (a<0) then k:=k+1;

end;

writeln (k) ;

end.