Использовать Робот алг нач нц пока сверху свободно закрасить вверх кц нц пока справа свободно закрасить вправо кц нц пока снизу свободно закрасить вниз кц нц пока слева свободно закрасить влево кц кон
// 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 месяц; }
алг
нач
нц пока сверху свободно
закрасить
вверх
кц
нц
пока справа свободно
закрасить
вправо
кц
нц
пока снизу свободно
закрасить
вниз
кц
нц пока слева свободно
закрасить
влево
кц
кон