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

Question

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

Aliska00129 · 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.