Ответ:
var j,i,k,n:integer;
m:array[1..1000] of integer;
begin
read(n,k);
//Ввод элементов массива
for i:=1 to n do
read(m[i]);
//Сортировка по возрастанию
for i:=1 to k do
for j:=i to k do
if m[j]<m[i] then swap(m[i],m[j]);
//Сортировка по убыванию
for i:=k+1 to n do
for j:=i to n do
if m[j]>m[i] then swap(m[i],m[j]);
//Вывод элементов массива
for i:=1 to n do
print(m[i]);
end.
1)3*2^13/2^12=6 бит на пиксель 2^6= 64 Ответ 64
2)240*192*24=1105920бит 16777216=2^24
Ответ:
5-команда ввода-read, команда вывода- write
6-функция random
7-Var i : Integer; {i - это переменная для работы с элементами массива}
Begin
For i:=1 To n Do {ввод массива с клавиатуры}
Read(m[i]); {чтение i-го элемента}
End;
8-var f: array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
f[i]:=random(10); { интервал [0,9] }
write(f[i],' ');
end;
end.
9-не понял
Объяснение:
1)механические весы
2)компьютеры на транзисторах компьютер 6600 фирмы CDC
<span>ухудшается защищенность секретных данных
</span><span>надо настраивать и поддерживать работу сети
</span><span>надо покупать новое оборудование для сети</span>