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

Question

Дарья Балашова

Информатика

24 ноября, 10: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.