Взаданном массиве a[n; n] определить сумму элементов в каждом столбце. сформируйте одномерный массив, содержащий полученные суммы, расположенные по убыванию
Const N = 5; var i, j: integer; ar: array[1..N, 1..N]of integer; ms: array[1..N]of integer; begin for i := 1 to N do for j := 1 to N do begin read(ar[i, j]); ms[i] := ms[i] + ar[i, j]; end; writeln; ms.sorted.print; end.
Кажется, у вас опечатка. Скорость передачи не 223, а 2^23 бит/сек. 1 байт = 2^3 бит, поэтому 2^23 бит/сек = 2^20 байт/сек = 1 Мбайт/сек. Объем несжатого файла: 50Мбайт. Объем сжатого файла: 50*0,9 = 45 Мбайт. Время передачи несжатого файла: (50 Мбайт) / (1 Мбайт/сек) = 50 сек. Время передачи сжатого файла: (45 МБайт) / (1 Мбайт/сек) = 45 сек. Время сжатия и распаковки архива: 7 + 3 = 10 сек. Общее время передачи сжатого файла: 45 + 10 = 55 сек. Время передачи несжатого файла на 5 сек меньше, чем сжатого. ответ: Б5
// PascalABC.NET 3.2, сборка 1488 от 21.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(31,16,27); a.Println; var s:=a.Select((x,i)->(x,i)).OrderBy(x->x[0]).Select(x->x[1]+1); Write('Семь самых холодных дней: '); s.Take(7).Println; Write('Семь самых жарких дней: '); s.TakeLast(7).Println end.
N = 5;
var
i, j: integer;
ar: array[1..N, 1..N]of integer;
ms: array[1..N]of integer;
begin
for i := 1 to N do
for j := 1 to N do
begin
read(ar[i, j]);
ms[i] := ms[i] + ar[i, j];
end;
writeln;
ms.sorted.print;
end.