Точного совпадения с «каждый аспирант кафедры информационные системы изучает только один из трех языков: - id524071620220701 от pomogiplizplizpliz 01.07.2022 03:41

Question

Информатика: Точного совпадения с «каждый аспирант кафедры информационные системы изучает только один из трех языков: , или французский. французский язык изучают только пять аспирантов. информационный объем сообщения аспирант петров изучает только язык равен 2 битам. количество информации содержащееся в сообщении аспирант иванов не изучает язык равно (4-2log3 по основанию 2)бит. чему равно количество аспирантов кафедры, с которыми может общаться иностранный студент? (решение по формуле хартли)

pomogiplizplizpliz · Accepted Answer

// PascalABC.NET 3.0, сборка 1128
procedure AllMake(p:array of integer; var avg:real);
begin
avg:=p.Average;
for var i:=0 to p.Length-1 do
if p[i]<avg then p[i]*=10
end;

begin
var n:=ReadInteger('Количество элементов в массиве:');
var a:=ArrRandom(n,1,50);
Writeln('Исходный массив'); a.Println;
var av:real;
AllMake(a,av);
Writeln('Среднее арифметическое равно ',av);
Writeln('Результирующий массив'); a.Println;
WriteAllText('out.txt',a.JoinIntoString)
end.

Тестовое решение:
Количество элементов в массиве: 15
Исходный массив
34 50 49 50 17 21 13 25 11 43 47 45 30 11 1
Среднее арифметическое равно 29.8
Результирующий массив
34 50 49 50 170 210 130 250 110 43 47 45 30 110 10

Файл out.txt дан во вложении.

MOGZ ответил