Решите ПЕРЕД ПЕРЕДАЧЕЙ ПО СЕТИ ДАННЫЕ ШИФРУЮТСЯ ТАК, ЧТО ОБЪЕМ ИНФОРМАЦИИ УВЕЛИЧИВАЕТСЯ НА 42%. ОПРЕДЕЛИТЕ, СКОЛЬКО МИНУТ ЗАЙМЕТ ПЕРЕДАЧА ЗАШИФРОВАННОГО ФАЙЛА, ИСХОДНЫЙ ОБЪЕМ КОТОРОГО 82 Мбайт, ЕСЛИ СКОРОСТЬ ПЕРЕДАЧИ ИНФОРМАЦИИ СЕТИ РАВНА 6 Мбит/С

program arrdiap;

var

 N, A, B, i: Integer;

 M: array of Integer;

begin

 Write ('Введите размерность массива: ');

 ReadLn (N);

 SetLength (M, N);

 Randomize;

 for i := Low (M) to High (M) do begin

   M [i] := Random (100);

   Write (M [i], ' ');

 end;

 WriteLn;

 Write ('Введите диапазон A, B: ');

 ReadLn (A, B);

 WriteLn;

 WriteLn ('Принадлежит диапазону ', A, ' - ', B, ':');

 for i := Low (M) to High (M) do begin

   if (M [i] >= A) and (M [i] <= B) then

     Write (M [i], ' ');

 end;

 ReadLn;

end.

Ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.
ура, скоро конец четверти. нужно исправить оценки.