14.Основной характеристикой каналов передачи информации является их 5. Быстрое запоминающее устройство не очень большого объема, связанное с процессором и предназначенное для записи, считывания и хранения обрабатываемой информации оперативная памятькэш - памятьпостоянная память2. Сколько бит содержится в 10Б? 7. Энергозависимая память, изпользуется для хранения данных, которые никогда не потребуют изменения оперативная памятькэш - памятьпостоянная память3. Выясните, сколько КБ информации займет книга, которая имеет 200 страниц, по 60 строк на странице и 80 символов в строке 12. Компьютер- сервер -это центральный компьютеркомпьютер, который постоянно включен в сетьабонент9. Какое количество информации в мегабайтах можно передать при пропускной канала в 2 Мбит/с 0, 120, 240, 1234. Устройство хранения информации или запоминающее устройство. 13. Сети для передачи и приема данных с радиоволн беспроводное подключениебеспроводные локальные сетиспутниковые сети10. Какое из названных действий можно произвести с архивным файлом просмотретьраспоковатьотредактировать1.Расположите в порядке возрастания 1ГБ 1КБ 1025 Б 1023 МБ 11.Разновидность ОЗУ, в котором хранятся закодированные изображения 6. Очень быстро запоминающее устройство небольшого объема оперативная памятькэш - памятьпостоянная память8 . Архив - это документ, содержащий в себе один или несколько документов в сжатом видефайл, содержащий в себе один или несколько файловфайл, содержащий в себе один или несколько файлов в сжатом виде
Ответы
// 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 дан во вложении.
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 дан во вложении.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Записать выражение на языке pascal a=bc ^2
Автор: aleksey270593
Расставь строки программы в правильном порядке
Автор: ska67mto3983
A1=5, в1=а1*2, с1=а1+в1.результатом вычислений в ячейке с1 будет
Автор: vis-lyubov8832
Что произойдет при попытке исполнении инструкции?t= range (2, 4, -1)
Автор: valya-7777
выпишите все термины из видеоурока（на картинке）
Автор: mariokhab
begin
writeln('на каком этаже живёт Миша?');
readln(a);
writeln('на каком этаже находится лифт?');
readln(b);
writeln('за сколько секунд Миша поднимается на этаж?');
readln(sek_m);
writeln('за сколько секунд лифт поднимается на этаж?');
readln(sek_l);
sek_m:=sek_m*a-sek_m;
writeln('Миша поднимется на нужный этаж за ',sek_m,' сек.');
sek_l:=(sek_l*b+sek_l*a)-sek_l;
writeln('лифт поднимется на нужный этаж за ',sek_l,' сек.');
if (sek_m=sek_l) then writeln('Миша будет подниматься одинаковое количество времени')
else if (sek_l>sek_m) then writeln('Мише быстрее подняться самому')
else writeln('Мише быстрее подняться на лифте');
end.