Заполнить массив из 15 элементов 0 и 1 при генератора - вопрос №15012623003 от demoplus1 24.05.2023 04:18

Question

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

demoplus1 · Answer

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.