Var a:array[1..10] of Integer ;
b,i,k,f:integer;
Begin
WriteLn('Исходный массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
end;
For k:=1 to 9 do
begin
For i:= 1 to 9 do
begin
if a[i]< a[i+1] then
begin
b:=a[i];
a[i] := a[i+1];
a[i+1]:=b;
end;
end;
end;
WriteLn;
WriteLn('Итоговый массив');
For i:= 1 to 10 do
Write(a[i]:3);
end.
1) Цветы распускаются, дует ветер, облака бутут розовыми, ожидается тёплый дождь.
2) Цветы не распускаются, ветра нет, облака будут желтыми, ожидается тёплый дождь.
3) Цветы не распускаются, дует ветер, облака будут синими, ожидается холодный дождь.
Найдем кол-во байт, которое нужно передать. 640*480*3=921 600 байт. Переведу в биты. 1 байт = 8 бит, следовательно 921 600 байт умножаем на 8.
921 600 * 8 = 7 372 800 бит.
Теперь найду время, поделив кол-во бит на скорость передачи.
7 372 800 : 25 600 = 288 секунд.
Ответ: 288 секунд
Незнаю как тебе это поможет, но вдруг;(
<span>Диван - родовое, газель - видовое</span>