Program Pas02; uses Crt; const n=20; var a:array[1..n] of real; i,k:integer; t:real; begin Randomize; ClrScr; Writeln('Массив случайных чисел'); k:=0; for i:=1 to n do begin a[i]:=Random(31)-15.0; Write(a[i]:6:1); if a[i]=10.0 then Inc(k) end; Writeln; Writeln('Количество элементов, равных 10: ',k); Write('Нулевые элементы '); k:=0; for i:=1 to n do if a[i]=0 then begin Inc(k); Write(i,' ') end; if k=0 then Writeln('отсутствуют') else Writeln; Writeln('Меняем местами элементы 3 и 6'); t:=a[3]; a[3]:=a[6]; a[6]:=t; for i:=1 to n do Write(a[i]:6:1); Writeln end.
Тестовое решение Массив случайных чисел 2.0 -12.0 8.0 -2.0 -1.0 3.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0 Количество элементов, равных 10: 1 Нулевые элементы 12 Меняем местами элементы 3 и 6 2.0 -12.0 3.0 -2.0 -1.0 8.0 -12.0 -9.0 3.0 9.0 -8.0 0.0 -7.0 -4.0 -12.0 10.0 9.0 5.0 -8.0 6.0
1. Определим, как изменится размер файла. Пусть по первому варианту размер равнялся Y байт. При повторной оцифровке разрешение было в два раза меньше и по этой причине размер файла составит Y/2 байт. Кроме этого, была уменьшена в 1.5 = 3/2 раза частота дискретизации, что уменьшит размер файла до Y/2 : 3/2 = Y/3 байт, т.е. файл стал втрое меньше размером.
2. Определим время, за которое такой файл мог бы передаваться из города А. Поскольку файл уменьшился втрое, во столько же раз уменьшится время, необходимое на его передачи и оно составит 90/3=30с
3. ответим на вопрос задачи. Канал связи с Б обладает пропускной втрое ниже, поэтому файл будет передаваться втрое дольше, т.е. 30×3=90с
ответ: время передачи не изменится и составит 90с
Можно было, конечно, решить эту задачу в уме. Файл уменьшился в два, да еще в полтора, итого в 2×1.5=3 раза. А пропускная канала ниже тоже втрое. Получается, что время передачи файла не изменится.
