Из уроков предмета << Художественный труд>> ты знаешь,что такое орнамент. Какие орнаменты тебе нравятся? Найди в Интернете дополнительные материалы о видах орнаментов и их названих. Поделись этой информацией с однаклассниками,друзьями.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017 // Внимание! Если программа не работает, обновите версию!
procedure MyArray(n:integer;var a:array of integer); begin a:=ArrFill(n,0); // заполняем массив нулями Randomize; // инициализируем датчик случайных чисел // в случайный элемент заносим слчайное значение a[Random(0,n-1)]:=Random(1,99) end;
begin var n:=ReadInteger('n='); // читаем с клавиатуры размер массива var mas:array of integer; MyArray(n,mas); // вызываем процедуру mas.Println // выводим сформированный массив end.
Каждый символ в кои-8 имеет объем информации 1 байт. всего текста 60*30 = 1800 байт на каждой странице. растровое изображение передает не более 8 = 2^3 цветов, значит, на кодировку цвета используется 3 бита. размер каждого рисунка 120*240*3 = 86400 бит = 10800 байт. а рисунков 2 на каждой странице. таким образом, каждая страница содержит 2*10800 + 1800 = 23400 байт. модем со скоростью передачи 28800 бит в сек передал документ за 5 сек. значит, он передал 28800*5 = 144000 бит = 18000 байт. но это меньше, чем находится на одной странице. вывод: у вас ошибка в условии.
// Внимание! Если программа не работает, обновите версию!
procedure MyArray(n:integer;var a:array of integer);
begin
a:=ArrFill(n,0); // заполняем массив нулями
Randomize; // инициализируем датчик случайных чисел
// в случайный элемент заносим слчайное значение
a[Random(0,n-1)]:=Random(1,99)
end;
begin
var n:=ReadInteger('n='); // читаем с клавиатуры размер массива
var mas:array of integer;
MyArray(n,mas); // вызываем процедуру
mas.Println // выводим сформированный массив
end.
Пример
n= 21
0 0 0 0 0 0 0 56 0 0 0 0 0 0 0 0 0 0 0 0 0