Заполнить массив из 15 элементов 0 и 1 при помощи генератора случайных чисел. Определить количество нулей и единиц в массиве

Question

Информатика

Нюша

12 ноября, 00:54

Заполнить массив из 15 элементов 0 и 1 при помощи генератора случайных чисел. Определить количество нулей и единиц в массиве

+4

Ответы (1)

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

Филя · Answer 1

Var

i, n, e: integer;

k: array[1 ... 15]of integer;

begin

for i : = 1 to 15 do

begin

k[i] : = random (2) ;

write (k[i],' ') ;

if k[i]=0 then n:=n+1

else e:=e+1;

end;

writeln;

writeln ('Нулей: ', n,'; единиц: ', e)

end.