Дан одномерный массив В(10). Подсчитать количество элементов массива, меньших числа 5. Составить на языке Паскаль.
Вот решение на языке Паскаль:
less
Copy code
program CountLessThanFive;
var
B: array[1..10] of Integer;
Count, i: Integer;
begin
// Заполняем массив случайными числами от 0 до 9
for i := 1 to 10 do
B[i] := Random(10);
Count := 0;
// Подсчитываем количество элементов меньше 5
for i := 1 to 10 do
if B[i] < 5 then
Count := Count + 1;
// Выводим результат
Writeln('Количество элементов меньше 5: ', Count);
end.
Программа создает массив B из 10 элементов и заполняет его случайными числами от 0 до 9. Затем программа перебирает все элементы массива и увеличивает счетчик Count на 1, если элемент меньше 5. В конце программа выводит количество элементов меньше 5.
Объяснение:
дано решениех=1600 n=2^i -> 16777216= 2^24= 24 бита у=1200 r=x*yn=16777216 r=1600*1200
v-? v=r*i v=24*(1600*1200)=5000 кбайт= 5,5 мбайт ответ: 64 мбайт.
нужно определить, сколько времени будет передаваться файл объемом 5 мбайт по каналу со скоростью передачи данные 215 бит/с; к этому времени нужно добавить задержку файла у толи (пока он не получит 512 кбайт данных по каналу со скоростью 219 бит/с). периведём объём информации в мб в биты: q = 5 мб = 5 * 220 байт = 5 * 223 бит. время задержки: = 512 кб / 219 бит/с = 2(9 + 10 + 3) - 19 c = 23 c. время скчивания данных мишей: = 5 * 223 бит / 215 бит/с = 5 * 28 c. полное время: = 5 * 28 c + 23 c = (256 * 5 + 8) c = 1288 c. ответ: 1288.