Паскаль двухмерный массив. Дан целочисленный двумерный массив, размерности n х m.
Паскаль двухмерный массив. Дан целочисленный двумерный массив, размерности n х m. Вывести на экран те элементы, y которых остаток от разделения на m равен k. (2 номер)
Задать свой вопрос
1 ответ
Arsenij Svetajlo
// 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-gt;x mod m=k).Println
end.
Пример
Количество строк в массиве: 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
// Внимание! Если программка не работает, обновите версию!
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-gt;x mod m=k).Println
end.
Пример
Количество строк в массиве: 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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Облако тегов