<em>// PascalABC.NET 3.2, сборка 1362 от 14.12.2016</em>
<em>// Внимание! В других версиях языка работа не гарантируется!</em>
begin
var m:=ReadInteger('Количество строк в массиве:');
var n:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив A[',m,',',n,'] ***');
var a:=MatrRandom(m,n,-50,50);
a.Println(4);
Writeln(4*a.ColCount*'-');
var k:=a.Rows.Select(x->x.Aggregate(0,(x,y)->x+y)).ToArray.IndexMax;
for var j:=0 to (n-1) div 2 do Swap(a[k,j],a[k,n-1-j]);
a.Println(4)
end.
<u>Пример</u>
Количество строк в массиве: 4
Количество столбцов в массиве: 5
*** Исходный массив A[4,5] ***
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
8 46 45 14 -44
--------------------
29 36 -50 -4 -32
-1 -10 -7 -47 -50
-16 4 48 -41 -43
-44 14 45 46 8
Раз последняя цифра равна нулю, то 30 без остатка делится на N.
Делители числа 30: 30, 10, 15, 5, 3, 2, 1.
Всё, что больше 10, и 10 можно сразу отбросить.
30 / 5 = 6 (0)
6 / 5 = 1 (1)
30_10 = 116_5 - не подходит, т.к. 3 цифры
30 / 3 = 10 (0)
10 / 2 = 5 (0)
5 / 2 = 2 (1)
30_10 = 2100_3 - подходит
Ответ: 3.
1024 : 256= 4 (скорость 256 бит/с < 1024бит/с в 4 раза)
За одно и то же время можно передать файл размером в 4 раза меньше:
4 Кбайт :4 =1 Кбайт=1024 байта.
var
a: <em>integer</em>;
begin
write('Enter your age: ');
readln(a);
writeln('Your age in months is ', a * 12);
<span>end.</span>