// PascalABC.NET 3.3, сборка 1600 от 23.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(m,n,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var b:=a.Cols.Select(x->x.Sum).ToArray; b.Println end.
Function MonthName(n) { var месяц; switch (n) { case 1: месяц = "январь"; break; case 2: месяц = "февраль"; break; case 3: месяц = "март"; break; case 4: месяц = "апрель"; break; case 5: месяц = "май"; break; case 6: месяц = "июнь"; break; case 7: месяц = "июль"; break; case 8: месяц = "август"; break; case 9: месяц = "сентябрь"; break; case 10: месяц = "октябрь"; break; case 11: месяц = "ноябрь"; break; case 12: месяц = "декабрь"; break; default: месяц = ""; break; } return месяц; }
// Внимание! Если программа не работает, обновите версию!
begin
var (m,n):=ReadInteger2('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var b:=a.Cols.Select(x->x.Sum).ToArray; b.Println
end.
Пример
Количество строк и столбцов в массиве: 6 7
*** Исходный массив ***
62 -85 18 64 95 41 -14
72 50 -91 83 70 -14 -9
-51 -16 24 -43 28 -97 96
-53 -45 -54 42 72 97 23
-34 39 27 -64 7 -33 59
38 -59 60 -16 -26 49 -14
34 -116 -16 66 246 43 141
var месяц;
switch (n) {
case 1: месяц = "январь"; break;
case 2: месяц = "февраль"; break;
case 3: месяц = "март"; break;
case 4: месяц = "апрель"; break;
case 5: месяц = "май"; break;
case 6: месяц = "июнь"; break;
case 7: месяц = "июль"; break;
case 8: месяц = "август"; break;
case 9: месяц = "сентябрь"; break;
case 10: месяц = "октябрь"; break;
case 11: месяц = "ноябрь"; break;
case 12: месяц = "декабрь"; break;
default: месяц = ""; break;
}
return месяц;
}