Const n=10;
var a:array[1..10] of integer;
i,j,z:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=6 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
Write('Результат: ');
for i:=1 to 10 do
Write(a[i]:4);
end.
Урок, чтение учебника, чтение расписания,
1. Вопрос.
79 = 1001111
444 = 110111100
2. Вопрос.
101000 = 40
10101011 = 171
3. Вопрос.
3 приложение превышает объем 15 мб
0.5 гб переведем в мегабайты 0.5*1024=512 мб
Ответ: Нет.
4. 545,6Кб=545,6*1024=558694.4Байт;
0,756Гб=0,756*1024=774.144мб, 774,144*1024= 792723.456Кбайт;
456789Б=456789/1024=446.08КБайт, 446.08/1024= 0.43Мб)
5. Музыкальныйклип = 15 символов
принято считать 1 символ 1 байт
1*15= 15 байт фраза занимает.
15*8= 120 бит
Ответ: 15 Байт, 120 бит
По порядку:
1-3-4-6-5
или
4-6-5
При ответе стоит исходить из того, требуется в данном учебнике (учебном пособии или другом учебном материале) обязательное написание http://
<span>from random import randint
mas = [randint(50,100) for i in range(10)]
print(mas,'\nSuma',sum(mas))</span>