Все на фото!
....................................................................................................................
A: 12 (сжатие) + 0.8 * 10 МБайт / 221 (время на передачу сжатого файла) + 3 (распаковка) = 303 675 сек.
Б: 10 МБайт / 221 = 379 575 сек.
А75918
<u>// PascalABC.NET 3.3, сборка 1607 от 31.12.2017</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,10,99);
a.Println(3); Writeln(3*n*'-');
for var i:=0 to n-2 do
for var j:=i+1 to n-1 do a[i,j]:=0;
Writeln('*** Выходной массив ***'); a.Println(3)
end.
Если у обычных то 10-тиричная
Каждая планета Солнечной системы вращается вокруг своей оси
Всякий человек способен мыслить