Матрица... ( Delphi )

[Vans888]

Дорогие форумчане помогите реализовать пожалуйста.

Задана прямоугольная матрица А(4,5). Найти местоположение (номер К) строки с максимальной суммой элементов. Далее сформировать матрицу В(4,5), каждый элемент строки которой равнялся бы элементу соответствующей строки матрицы А, деленному на соответствующий элемент К-й строки.

[Yurk@]

помогите реализовать пожалуйста.

Поможем
А что не получается то ?

[Vans888]

Сообщение от Yurk@

Поможем
А что не получается то ?

не дает вводить значения...

вот мой код:

{$APPTYPE CONSOLE}
Var
  A,B : array[1..4,1..5]of real;
  i,j,k : integer;
  S,Sk : real;
BEGIN
  Randomize;
  writeln('Initial matrix');
  for i:=1 to 4 do begin
    for j:=1 to 5 do begin
      A[i,j]:=10*Random-5; write(A[i,j]:10:2);
    end;
    writeln;
  end;
  Sk:=-1000; k:=1;
  for i:=1 to 4 do begin
    S:=0;
    for j:=1 to 5 do S:=S+A[i,j];
    if S>Sk then begin
      k:=i; Sk:=S;
    end;
  end;
  writeln('Row with max.sum=',k,' Max.sum=',Sk:0:2);
  writeln('Matrix B');
  for i:=1 to 4 do begin
    for j:=1 to 5 do begin
      if A[k,j]<>0 then B[i,j]:=A[i,j]/A[k,j] else B[i,j]:=A[i,j];
      write(B[i,j]:10:2);
    end;
    writeln;
  end;
  readln;
END.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Базиля]

Vans888

не дает вводить значения...

Зачения чего?
У вас матрица задается случайными числами, что вы вводить хотите?

[Vans888]

Сообщение от Базиля

Vans888

Зачения чего?
У вас матрица задается случайными числами, что вы вводить хотите?

То есть я сделал верно ?... просто думал что можно будет изменять если надо будет. я просто в программировании новичек восновном беру с исходников и с ними колдую)

[Базиля]

Vans888

То есть я сделал верно ?... просто думал что можно будет изменять если надо будет. я просто в программировании новичек восновном беру с исходников и с ними колдую)

Ну если требуется заполнять матрицу случайными значениями(по какому-то принципу), то ввод у вас организован верно.
Ознакомьтесь
http://programmersforum.ru/showthread.php?t=70310
Полезно будет

[Yurk@]

Сообщение от Vans888

просто думал что можно будет изменять если надо будет.

а если нужно будет вводить при необходимости - на старте программы задавай вопрос о варианте заполнения матрицы с вариантами ответа (например 1 - автоматически, 2 - вручную) и уже на основе ответа или заполняй автоматом (как следано сейчас) или же принимай значения которые введет человек руками