Длительность не превышает 10 минут, то есть 10*60=600 секунд. Для удобства переведём скорость из Кбит/сек в Кбайт/сек по формуле кбит/8=кбайт 32 Кбит/с / 8 = 4 Кбайт/с То есть за 1 секунду передаётся 4 Кбайт, значит за 600 секунд будет передано 600*4= 2400 Кбайт
Соглашусь с alviko, вариант 2: За секунду передаётся 32 Кбит, то есть 32 000 бит. Переводим в байты (делим на 8), получаем 4000 байт/с. На передачу уходит максимум 600 секунд, то есть за 600 секунд будет передано 4000*600=2 400 000 байт. Переведём байты в килобайты (разделим на 1024) 2 400 000 байт / 1024 = 2343,75 Кбайт В задании не сказано, целое ли количество кбайт требуется в ответе. Если целое, то ответ 2343 Кбайт (округляем в меньшую сторону, т.к. 2344 Кбайт за 10 минут мы передать не можем).
// PascalABC.NET 3.0, сборка 1128 function Sum(a:array of real):real; begin Result:=0; foreach var x in a do if x>10 then Result+=x end;
procedure Half(a:array of real); begin var s:=Sum(a)/2; for var i:=0 to a.Length-1 do a[i]/=s end;
procedure PrintRealArray(a:array of real); begin foreach var x in a do Write(x:0:3,' '); Writeln end;
begin var n:=ReadInteger('Количество элементов массива:'); var P:=ArrRandomReal(n,0,20); Writeln('Исходный массив'); PrintRealArray(P); Half(P); Writeln('Результирующий массив'); PrintRealArray(P) end.
Для удобства переведём скорость из Кбит/сек в Кбайт/сек по формуле кбит/8=кбайт
32 Кбит/с / 8 = 4 Кбайт/с
То есть за 1 секунду передаётся 4 Кбайт, значит за 600 секунд будет передано 600*4= 2400 Кбайт
Соглашусь с alviko, вариант 2:
За секунду передаётся 32 Кбит, то есть 32 000 бит. Переводим в байты (делим на 8), получаем 4000 байт/с.
На передачу уходит максимум 600 секунд, то есть за 600 секунд будет передано
4000*600=2 400 000 байт.
Переведём байты в килобайты (разделим на 1024)
2 400 000 байт / 1024 = 2343,75 Кбайт
В задании не сказано, целое ли количество кбайт требуется в ответе. Если целое, то ответ 2343 Кбайт (округляем в меньшую сторону, т.к. 2344 Кбайт за 10 минут мы передать не можем).
function Sum(a:array of real):real;
begin
Result:=0;
foreach var x in a do
if x>10 then Result+=x
end;
procedure Half(a:array of real);
begin
var s:=Sum(a)/2;
for var i:=0 to a.Length-1 do a[i]/=s
end;
procedure PrintRealArray(a:array of real);
begin
foreach var x in a do Write(x:0:3,' ');
Writeln
end;
begin
var n:=ReadInteger('Количество элементов массива:');
var P:=ArrRandomReal(n,0,20);
Writeln('Исходный массив'); PrintRealArray(P);
Half(P);
Writeln('Результирующий массив'); PrintRealArray(P)
end.
Тестовое решение:
Количество элементов массива: 10
Исходный массив
2.835 3.159 11.777 19.562 1.392 8.941 15.501 14.392 7.945 12.443
Результирующий массив
0.077 0.086 0.320 0.531 0.038 0.243 0.421 0.391 0.216 0.338