Объясните ! не понимаю. в скачках участвуют 20 лошадей. специальное устройство регистрирует прохождение - id683136020220304 от zhansaya12 04.03.2022 12:37

Question

Информатика: Объясните ! не понимаю. в скачках участвуют 20 лошадей. специальное устройство регистрирует прохождение каждым лошадью финиша, записывая ее номер с использованием минимально возможного количества бит, одинакового для каждой лошади. каков информационный объем сообщается, записанного устройства, если до финиша добрались только 15 и 20 участвовавших в скачках лошадей?

zhansaya12 · Accepted Answer

// Дан массив А(30). Сформировать новый массив из значений элементов массива А кратных 5

var ish, krat: array [1..30] of word;
i,j,x :byte;
begin j:=1;
randomize;
for i:=1 to 30 do //заполняем исходный массив случайными числами (до 1000)
begin
ish[i]:=random(1000);
writeln (i,' элемент исходного массива ',ish[i]);
end;
writeln ('находим элементы кратные пяти:');
for i:=1 to 30 do
begin
x:= ish[i] mod 5; //определяем элементы кратные пяти
if x=0 then
begin //и заполняем новый
krat[j]:=ish[i];
writeln (j,' элемент нового массива ',krat[j],' равен ',i,' элементу исходного массива');
j:=j+1;
end;
end;
end.

MOGZ ответил