Сообщение что книга интересующий ученика расположена на 5 полке несет 3 бита информации сколько полок - id927322020221010 от FenomeN1703 10.10.2022 14:10

Question

Информатика: Сообщение что книга интересующий ученика расположена на 5 полке несет 3 бита информации сколько полок на стеллаже

FenomeN1703 · Accepted Answer

Var
A: array [1..10] of integer;
i, count: byte;
mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
A[i] := random(11) + 10;
writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
if A[i] mod 3 = 0 then
begin
count := count + 1;
mult := mult * A[i];
end;

if (count = 1) or (count = 0) then
writeln('Количество элементов кратных 3 = ', count)
else
writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.

Сообщение что книга интересующий ученика расположена на 5 полке несет 3 бита информации сколько полок на стеллаже

MOGZ ответил