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

Question

Информатика

Торя

26 июня, 02:17

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

+4

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