Нужна дан массив из 50 элементов, значения которых формируются случайно и лежат в диапазоне от -50 до 49 включительно. требуется вывести значения в диапазоне от -5 до 5 включительно и подсчитать их количество. написать на языке паскаль

PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(50, -50, 49);

 a.Println.Where(t -> t.InRange(-5, 5)).Println(', ').Count.Println

end.

Так, адача похожая на предыдущую 

 

Переведем килобайты в биты:

100 килобайт * 1024 байта в килобайте = 102400 байт.

 

переведем в биты:

102400 * 8 бит в байте = 819200 бита в сообщении.

 

Добавим избыточность. Нам по условию надо добавить 20% информации

819200*1.20 = 983040 бит надо передать.

 

Рассмотрим пропускную канала

10 мегабит\секунду. переведем в килобиты:

10*1024 килобит в мегабите = 10240 килобит в секунду.

переведем в биты в секунду = 10240*1024 = 10485760 бит в секунду

разделим, чтобы определить время:

 

983040 бит / 10485760 бит в секунду = 0.09375 секунд

 

ответ: 0.09375 секунд

 

 

 

 

X увеличивается в цикле с 1 до 4, каждый раз на 1.
y каждый раз увеличивается в 2 раза, начиная с 1 и до 2^4 = 16.
1) Тело цикла исполнится 4 раза.
2) x примет значение 5.
3) y примет значение 16.
4) Если написать x <= 5, то тело цикла исполнится 5 раз.
На выходе будет x = 6, y = 32.
5) Если написать x >= 5, то тело цикла не будет исполнено ни разу, потому что условие сразу не выполняется.
6) Если написать x > 0, то программа зациклится. Цикл будет исполняться бесконечно, потому что x всегда > 0.
7) Если убрать команду x:=x+1, то программа тоже зациклится. Выхода не будет, потому что x всегда остается равным 1 < 5.
8) Если написать команду x:=x+2, то тело цикла исполнится 2 раза:
при x := 1 и при x := 3. На третий раз станет x = 5 и будет выход из цикла.
9) Если написать команду x:=x-1, то программа зациклится. Выхода не будет, потому что x будет уменьшаться и всегда останется < 5.