Массив(Delphi)

[Danti4]

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

[p51x]

Ну раз нет даже попыток решить самому, то сколько платите?

[Петррр]

const
  rows = 7;
  cols = 8;
var
  matrix: array[1..rows, 1..cols] of integer;
  i, j: integer;
begin
  randomize;
  // Заполнение
  for i := 1 to rows do
    for j := 1 to cols do
      matrix[i, j] := random(10);
  // Умножение каждого элемента строки на
  // первый элемент в строке
  for i := 1 to rows do
    for j := 1 to cols do
      matrix[i, j] := matrix[i, j] * matrix[i, 1];
end;

[Serge_Bliznykov]

Петррр, неверно.

    for j := 1 to cols do
      matrix[i, j] := matrix[i, j] * matrix[i, 1];

после первого же умножения в matrix[i, 1] запишется ПРОИЗВЕДЕНИЕ.
все последующие умножения будут идти не на значение 1-го элемента строки, а на его квадрат.

методы решения - либо завести дополнительную переменную (это просто, но не очень элегантно), либо крутить цикл от последного элемента строки к первому.
вот так, примерно:

    for j := cols downto 1 do
      matrix[i, j] := matrix[i, j] * matrix[i, 1];