Перемножить по очереди все числа столбцов двумерного массива на все элементы одномерного - Pascal ABC
Формулировка задачи:
(!) Запрашивает ввод одномерного и двумерного массивов и перемножает по очереди все числа столбцов двумерного массива на все
элементы одномерного массива.(т.е. певрый столбец на элементы одномерного массива,второй столбец на элементы одномерного массива)
Решение задачи: «Перемножить по очереди все числа столбцов двумерного массива на все элементы одномерного»
textual
Листинг программы
uses crt; const nmax=20; var a:array[1..nmax,1..nmax] of integer; b:array[1..nmax] of integer; n,m,i,j:byte; begin repeat write('Размер одномерного массива до ',nmax,' m='); readln(m); until m in [1..nmax]; repeat write('Количество столбцов матрицы до ',nmax,' n='); readln(n); until n in [1..nmax]; writeln('Введите ',m,' элементов одномерного массива:'); for i:=1 to m do begin write('b[',i,']='); read(b[i]); end; writeln('Введите ',n*m,' элементов матрицы:'); for i:=1 to m do for j:=1 to n do begin write('a[',i,',',j,']='); read(a[i,j]); end; clrscr; writeln('Одномерный массив:'); for i:=1 to m do write(b[i],' '); writeln; writeln('Матрица:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; for j:=1 to n do for i:=1 to m do a[i,j]:=a[i,j]*b[i]; writeln('Умножение столбцов на массив:'); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:5); writeln; end; end.
Объяснение кода листинга программы
Список действий в коде:
- Ввод размера одномерного массива
m
и количества столбцов матрицыn
. - Ввод элементов одномерного массива
b
. - Ввод элементов матрицы
a
. - Умножение столбцов матрицы
a
на элементы одномерного массиваb
. - Вывод одномерного массива
b
. - Вывод матрицы
a
. - Вывод одномерного массива
b
. - Вывод результата умножения столбцов матрицы
a
на массивb
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д