Как мы знаем, 1 кбайт памяти занимает 1024 байт памяти. А 1 байт, в свою очередь, занимает 8 бит. Зная это, найдем время, за которое файл размером 64 кбайт сможет передать некоторое соединение. Переведем 64 кбайт в байты [1024*64=65536] получим 65536 байт. Теперь переведем скорость передачи файла в байты [2048/8=256] получим 256 байт/сек. Делим 65536 байт на 256 байт/сек. получаем 256 сек. Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу. Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты. 16384 делим на 1024 получаем 16 кбайт. В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.
Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.
Делим 65536 байт на 256 байт/сек. получаем 256 сек.
Мы узнали время. Теперь 512 бит переведем в байты [512/8=64] получим 64 байт. 64 байт умножаем на 256 сек. получаем 16384 байт, ответ на задачу.
Если требуется написать ответ к килобайтах, переведем 16384 байт в кбайты.
16384 делим на 1024 получаем 16 кбайт.
В ответе пишем: 16384 байт либо 16 кбайт, в зависимости от того, что от нас требуют написать.
var
a : array of integer;
n, i, last : integer;
begin
read (n);
setlength (a, n);
for i := 0 to n - 1 do
read (a[i]);
last := 0;
for i := 0 to n - 1 do
if a[i] <> 0 then
begin
a[last] := a[i];
inc (last);
end;
setlength (a, last);
for i := 0 to last - 1 do
write (a[i], ' ');
end.
Суть такова. Имеем динамический массив. Считали массив, так как динамический, то от нуля все. Установили последнюю свободную ячейку 0. Идем по массиву и ищем ненулевое значение. Как только нашли, пишем его в свободную ячейку и увеличиваем занчение свободной ячейки на 1. При этом наши данные не затираются. После окончания всех операций в last лежит длина массива.
Статитечкий массив.
var
a : array [1..100] of integer;
n, i, last : integer;
begin
read (n);
for i := 1 to n do
read (a[i]);
last := 1;
for i := 1 to n do
if a[i] <> 0 then
begin
a[last] := a[i];
inc (last);
end;
dec (last);
for i := 1 to last do
write (a[i], ' ');
end.