Умножить каждый элемент первой строки матрицы на a[1; 1] - Pascal

Формулировка задачи:

Дана таблица a[n;m] умножить каждый элемент первой строки на a[1;1], а каждый элемент второй строки на a[2;2]. Помогите пожалуйста, отчет скоро сдавать и задачу надо решить в паскале. Спасибо за помощь!

Код к задаче: «Умножить каждый элемент первой строки матрицы на a[1; 1] - Pascal»

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.

7   голосов, оценка 4.286 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы