Информатика, паскаль напишите программу, перемещающую все нулевые элементы в конец массива 80 очков,

const n = 10;

var

 mas: array [1..n] of integer;

 i,j,h:integer;

begin

randomize;

for i := 1 to n do

 begin

   mas[i] := random(3);

   write(' ',mas[i],' ');

 end;

 writeln();

for i := 1 to n - 1 do

 for j := 1 to n - i do

   if(mas[j] = 0) then

     begin

       h := mas[j];

       mas[j] := mas[j + 1];

       mas[j + 1] := h;

     end;

for i := 1 to n do

   write(' ',mas[i],' ');

end.

1)Байкал, озеро.

Местонахождение: юг Восточной Сибири.

Размеры: длина 636 км, ширина 80 км, площадь 31 722 км², объем 23 615,390 км³, длина береговой линии примерно 2 100 км, глубина 1642 м.

Водный бассейн: впадают 336 рек (в том числе Селенга, Верхняя Ангара, Баргузин). Вытекает только Ангара.

2)пассажир летел из точки а в точку б время полёта: 2 часа 15 минут

стоимость 4100

время полёта из точки б в точку в 1час 50 минут

стоимость 6500

время езды из точки в в точку г 1час 10 минут

стоимость 100 рублей

время поездки из точки г в точку д 1,5 часа

стоимость 500 рублей

 на 3 4 и 5 не знаю ССОРИ

Объяснение:

Файл --> A --> Б

Если разрешение файла увеличили в три раза, а частоту дискретизации уменьшили в пять раз, значит объем файла был увеличен в три раза и уменьшен в пять.

Время передачи изменяется пропорционально объему файла, то есть, к примеру, увеличив объем в три раза, время передачи будет увеличено также в три раза.

В пункт А файл был передан за 50 секунд. Определим время передачи в пункт А нового (изменённого) файла.

50 * 3 / 5 = 30 секунд.

То есть если бы мы передавали измененный файл в пункт А, то он был бы передан за 30 сек. 

Пропускная между А и Б в шесть раз выше, значит из пункта А в пункт Б файл был передан за

30 / 6 = 5 секунд.