<em>// PascalABC.NET 3.2, сборка 1374 от 10.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var nn:=ReadInteger('1. Введите число N:');
Write('Максимальный из элементов, не превосходящий N');
if nn<b.Min then Writeln(', не существует')
else Writeln(', равен ',b.Where(x->x<=nn).Max);
Write('2. Максимальный элемент в массиве [');
var i:=b.IndexMax;
Writeln(i div n+1,',',i mod n+1,']=',a[i div n,i mod n])
end.
<u>Пример</u>
Количество строк в массиве: 5
Количество столбцов в массиве: 9
*** Исходный массив [5,9] ***
-18 -13 16 23 -14 -30 -12 -2 -2
-34 11 -47 -35 20 44 29 -36 46
2 -28 -35 -6 38 -9 -2 8 -10
3 16 5 -20 8 5 48 7 -33
-25 3 30 -35 -10 22 -11 42 -44
------------------------------------
1. Введите число N: 31
Максимальный из элементов, не превосходящий N, равен 30
2. Максимальный элемент в массиве [4,7]=48
Имя файла - Информатика.doc, но можно написать и просто Информатика, но вообще имя файла состоит из двух частей, а именно имени файла и расширения, в данном случае имя файла - Информатика, расширение - doc.
А1. 3) устройство вывода предназначено для передачи информации от компьютера пользователю;
А2. 2) D:\SCHOOL\PHYSICS ( в каталоге PHYSICS создан подкаталог 10_CLASS, а потом туда перетащили файл)
А3. 4) 48 байт. (тк 48 символов в высказывании умножить на 1 байт получится 48 байт)
А4. 2) ADD - первая гласная А, вторая согласная (раз первая гласная), третья -буква, которая не стоит на 1 месте.
В3. Для кодирования всех слов требуется 4 бита (N = 2^i , где N - количество слов Эллочки, i - количество бит, нужное для кодирования всех слов)
В4.
1) 225 Кбайт = 230400 байт = 1843200 бит - всго нужно передать
2) 1843200 бит / 14 400 бит/с = 128 секунд нужно модему, чтобы передать сообщение.
1.
700*400*32/8/1024=~1093 кбайт
880*600*32/8/1024=~2062 кбайт
1400*800*32/8/1024=~4375 кбайт
2200*1400*32/8/1024=~12031<span> кбайт
2. ((ln(8092)/ln(2))+округлить вбольшую до целого)*1200*1920/8/1024/1024=3.57 мбайт
3. (ln(32768)/ln(2)) / (ln(32)/ln(2)) = 32 бит пикс / 5 бит пикс = 6.4 раз
4. 1200 байт * 8 / (ln(64)/ln(2)) = 1600 точек.
5. 800*600*(ln(16)/ln(2)) бит пикс / 8 / 1024 = 234,375 кбайт будет занимать/весить. Достаточно.
6.
10 см ширина * (300/2.54) = 1181 пикс ширина
15 см высота * (300/2.54) = 1772 пикс высота
1181*1772*32 бит / 8 / 1024 / 1024 = 7.9 мбайт.</span>