// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var a1:=a[0,0]; Writeln('S=',a.ElementsByRow.Skip(1).Where(x->x>a1).Sum) end.
Пример Количество строк в массиве: 4 Количество столбцов в массиве: 5 *** Исходный массив [4,5] *** 35 24 93 -58 -89 -51 -55 -83 49 -92 -90 89 68 28 -60 46 -57 53 -78 -42
А) 8 бит
Б) 0.5 кбайт
В) 1024 кб= 1,048,576 байт = 8,388,608 бит
Г) 1536 байт = 12,228 бит
Объяснение:
В байте 8 бит, в КБ 1024 байт, в мб 1024 кб