<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Rows.SelectMany(x->x).ToArray;
var mx:=b.IndexMax; var mn:=b.IndexMin;
Swap(a[mx div n,mx mod n],a[mn div n,mn mod n]);
Writeln('*** Матрица-результат ***'); a.Println(4);
end.
<u>Пример</u>
Количество строк в матрице: 5
Количество столбцов в матрице: 6
*** Исходная матрица [5,6] ***
22 72 95 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 -98 -8 94
78 50 -49 73 0 -74
------------------------
*** Матрица-результат ***
22 72 -98 -18 48 15
-25 72 73 45 -62 75
49 95 -32 20 66 48
55 7 57 95 -8 94
78 50 -49 73 0 -74
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var y:=ReadReal('Введите неотрицательное число:');
var x:=Sqrt(y);
Writeln('Корень из этого числа: ',x)
end.
1) 128 цветов
2) что такое квадроаудиофайл я не знаю, но скорее всего это вдвое круче стерео, тогда 1,52 Мб
3) основание системы счисления 9
Если обычный dvd диск то в нём 4.7 гигабайта памяти.
переводим в биты так:
4.7 гиги умножаем на 1024 получаем мегабайты, ещё раз умножаем на 1024 получаем килобайты, умножаем ещё раз на 1024 получаем байты, и умножаем на 8, получаем биты
4,7*1024=4812,8мб*1024=4928307,2кб*1024=5046586572,8байта*8=40372692582,4 бит в двд диске
c CD диском точно так же. Обычно его размер 700 мб
700мб*1024=716800кб*1024=73403200байт*8=5872025600 бит на cd диске
