Даны целые положительные числа N, M и набор из M чисел. Сформировать матрицу размера N × M, у которой в каждой строке содержатся все числа из исходного набора (в том же порядке). Pascal решение
pascal
program matrix;
const
MAX_SIZE = 100; // максимальный размер матрицы
var
N, M, i, j: Integer;
numbers: array[1..MAX_SIZE] of Integer;
matrix: array[1..MAX_SIZE, 1..MAX_SIZE] of Integer;
begin
// Шаг 1: чтение значений N и M
writeln('Введите значения N и M:');
readln(N, M);
// Шаг 2: создание матрицы размера N × M
// Шаг 3: чтение исходного набора из M чисел
writeln('Введите исходный набор из ', M, ' чисел:');
for i := 1 to M do
read(numbers[i]);
// Шаг 4: заполнение каждой строки матрицы числами из исходного набора
for i := 1 to N do
for j := 1 to M do
matrix[i, j] := numbers[j];
// Шаг 5: вывод полученной матрицы
writeln('Полученная матрица:');
for i := 1 to N do
begin
for j := 1 to M do
write(matrix[i, j], ' ');
writeln;
end;
readln;
end.
1 2 3 4
1 2 3 4
1 2 3 4
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет
Нажимая «Регистрация» или «Войти через Google», вы соглашаетесь с Публичной офертой, даете Согласие на обработку персональных данных, а также подтверждаете что вам есть 18 лет