Умножить каждый элемент первой строки матрицы на a[1; 1] - Pascal
Формулировка задачи:
Дана таблица a[n;m] умножить каждый элемент первой строки на a[1;1], а каждый элемент второй строки на a[2;2].
Помогите пожалуйста, отчет скоро сдавать и задачу надо решить в паскале. Спасибо за помощь!
Решение задачи: «Умножить каждый элемент первой строки матрицы на a[1; 1]»
textual
Листинг программы
program pr;
var
a: array [1..100, 1..100] of integer;
n, m, i, j, k, z: integer;
begin
writeln('Введите количество строк');
readln(n);
writeln('Введите количество столбцов');
readln(m);
for i := 1 to n do
for j := 1 to m do
a[i, j] := random(21);
for i := 1 to n do
begin
for j := 1 to m do
write(a[i, j]:3);
writeln;
end;
k := a[1, 1];
for j := 1 to m do
a[1, j] := a[1, j] * k;
z := a[2, 2];
for j := 1 to m do
a[2, j] := a[2, j] * z;
writeln;
writeln('Матрица после преобразования');
for i := 1 to n do
begin
for j := 1 to m do
write(a[i, j]:5);
writeln;
end;
end.
Объяснение кода листинга программы
- В программе объявлены переменные: a, n, m, i, j, k, z.
- Пользователю предлагается ввести количество строк и столбцов матрицы.
- Для каждой строки матрицы в цикле заполняются элементы случайными числами от 1 до 21.
- Для каждой строки матрицы в цикле выводится содержимое строки.
- Для первой строки матрицы умножаются все элементы на k, для второй строки - на z.
- Выводится исходная матрица.
- Выводится преобразованная матрица.