var
a:array of double;
i,n,j:integer;
procedure swap(var x,y: double);
var t: double;
begin
t := x;
x := y;
y := t
end;
begin
write('Кол-во чисел: '); readln(n);
setlength(a,n);
dec(n);
for i:=0 to n do
readln(a[i]);
writeln;
for i:=0 to n do
write(a[i]:6:2);
writeln;
for j:=0 to n-1 do
for i:=0 to N-j-1 do
if a[i] < a[i+1] then
swap(a[i],a[i+1]);
for i:=0 to n do
write(a[i]:6:2);
writeln;
end.
Если моё решение вам, пометьте его лучшим !
Фотографии от Насти дошли на 18 секунд быстрее.
Объяснение:
1) вычислим, сколько весят фотографии без сжатия. Составим пропорцию:
х - 100%
4 Мб - 80%
х = 4 Мб * 100% / 80% = 5 Мб - вес всех фотографий без сжатия;
2) скорость передачи данных = 512 Кб/c = 512 / 1024 Мб/с = 0,5 Мб/с
3) t = I / v
Время, за которое сообщение Маши отправилось Артёму: 4 Мб / 0,5 Мб/c = 8 секунд. Добавляем +20 секунд на сжатие (распаковка не считается, так как нужно именно время, за которое дошло). Получается, весь процесс занял 28 секунд.
Время, за которое сообщение Насти отправилось Артёму: 5 Мб / 0,5 Мб/c = 10 секунд
Разность: 28 секунд - 10 секунд = 18 секунд
ответ: на 18 секунд быстрее.
