Заполнить массив из 15 элементов 0 и 1 при генератора - вопрос №26233371501 от алина3860 09.04.2023 22:42

Question

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

алина3860 · 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.