// PascalABC.NET 3.2, сборка 1344 от 22.11.2016 // Внимание! В более ранних версиях работа не гарантируется!
begin var m:=ReadInteger('Количество строк в массиве:'); var n:=ReadInteger('Количество столбцов в массиве:'); Writeln('Вводите элементы массива'); var a:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do Read(a[i,j]); Writeln('-'*20); foreach var c in a.Cols do Write(c.Sum,' ') end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 3 Вводите элементы массива 1 6 -2 0 6 8 -3 6 1 4 6 -3
2 задача. I = 3 мб М = 4×64 (кол-во стр. всего) К = 128×96 ( кол-во символов или байтов на 1 стр) N -? ( мощность алфавита найти)
решение . переведем 3 мб в байты. 3мб*1024*1024 = 3145728байт
узнаем сколько байт на 1 стр К= 128*96=122 88 байт
узнаем сколько всего страниц М=4*64 = 256
нам понадобятся 2 формально 1) N = 2 ^i (два в степени i) 2) I = K *i *M I, I и М нам известны, поэтому из второй формулы выражаем неизвестную i и получаем вот такую формулу i= I/K*M поставляем i=3145728/(12288*256)=3145728/3145728=1
вернемся к первой формуле , так как N = 2 ^i, а i=1 , то двойка будет в первой степень и следует, что N =2, так как два в первой степени равно двум. из двух символов состоит алфавит.
// Внимание! В более ранних версиях работа не гарантируется!
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('Вводите элементы массива');
var a:=new integer[m,n];
for var i:=0 to m-1 do
for var j:=0 to n-1 do Read(a[i,j]);
Writeln('-'*20);
foreach var c in a.Cols do Write(c.Sum,' ')
end.
Пример
Количество строк в массиве: 4
Количество столбцов в массиве: 3
Вводите элементы массива
1 6 -2
0 6 8
-3 6 1
4 6 -3
2 24 4