begin
var n:=ReadInteger ('Количество строк в массиве:');
var m:=ReadInteger ('Количество столбцов в массиве:');
Writeln ('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom (n,m,-99,99);
a.Println(4); Writeln (4*a.ColCount*'-');
Writeln ('Кол-во положительных: ',a.ElementsByRow.Where(x->x>1).Count)
end.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
-64 16 -1 59 -63 -37 -54 28 -40 39 17 -84
89 8 38 56 -51 20 49 28 -90 -85 1 81
13 52 -10 15 28 -95 76 -77 -54 -27 33 -9
22 43 -40 14 58 19 -75 26 92 94 -59 87
-95 -8 65 -24 -50 62 26 -79 -85 18 -54 -16
Кол-во положительных: 32
Это очень не так просто, как кажется на первый взгляд
Объяснение:
Далеко не всегда кодировка была 8 бит на знак.
До сих пор применяется и довольно широко кодировка 7 бит на знак.
Давно уже применяются кодировки 16 и, даже 32 бита на знак.
Но, допустим, мы используем именно ОДИН байт на знак, например ASCII
Хотя и он изначально был семибитным.
1) Дано : в каждой строке 64 знака. Ключевое слово " в строке ",
то есть нам необходимо разделять строки. Для этого в конце каждой строки нужно передать еще два знака - " EOL " и " CR " (конец строки и переход в начало следующей)
Итого в строке 66 знаков.
2) Дано на странице 64 строки. То есть мы обязаны переводить страницы. Значит 64 *66 = 4224 Знака. И еще знак подачи ( перехода ) следующей страницы
Итого на странице 4225 знаков
2) Дано : в книге 128 страниц. Значит знаков 128 * 4225 = 540800 знаков
Это в Кибибайтах 540800 / 1024 = 528.125 Kib или
Или в Килобайтах 540800 / 1000 = 540,800 Kb