• Паскаль двухмерный массив. Дан целочисленный двумерный массив, размерности n х m. Вывести на экран те элементы, y которых остаток от деления на m равен k. (2 номер)

    question img

Ответы 1

  • // PascalABC.NET 3.2, сборка 1416 от 26.03.2017// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('Количество строк в массиве:');  var m:=ReadInteger('Количество столбцов в массиве:');  var k:=ReadInteger('Значение k (от 0 до '+(m-1)+'):');  Writeln('*** Исходный массив [',n,',',m,'] ***');  var a:=MatrRandom(n,m,-99,99);   a.Println(4); Writeln(4*a.ColCount*'-');  a.ElementsByRow.Where(x->x mod m=k).Printlnend.ПримерКоличество строк в массиве: 4Количество столбцов в массиве: 7Значение k (от 0 до 6): 1*** Исходный массив [4,7] *** -76 -31  10 -56 -89  43  71 -96  -9 -26  19 -57 -90 -37  43 -97 -32 -76  48 -17 -28 -27 -27 -24 -68 -16 -13  54----------------------------43 71 43
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years