Цикл с использованием двумерного числового массива

[natalik-89]

Что то я совсем запуталась.... Люди добрые, помогите.....
Дана матрица x(i,j), получить и вывести на экран новую матрицу y(i,j), элементы которой вычисляются след. образом:

y(i,j)=x(i,j)/xmax(j), где xmax(j)-максимальное значение х по столбцу j.

Вот то, с чего я начала....

type vx=array[1..10,1..10] of real;
type vy=array[1..10] of real;
var
x:vx; y:vy;
n,m,i,j:integer;
a:real;
begin
writeln('Введите кол-во строк');
readln(n);
writeln('Bведите кол-во столбцов');
readln(m);
for i:=1 to n do
begin
for j:=1 to m do
begin
writeln(j,'-й элемент',i,'-й строки');
readln(x[i][j]);
end;
end;
{Здесь нужно прописать поиск макс. эл-та?}
{Формула для вычисления значений эл-тов новой матрицы?}
вывод матрицы.
....

[natalik-89]

Неужели так никто и не подскажет.......

[ROMA2PVT]

Неоднозначное задание.Но я понял его вот так:

uses
   crt;
const
    n=3;
var
    a:array[1..n,1..n] of integer;
    b:array[1..n,1..n] of real;
    i,j,imx,k:byte;
    x:integer;
begin
clrscr;
randomize;
writeln('Исходная матрица: ');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10)-5;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
repeat
write('Введите столбец для поиска max элемента: ');
readln(k);
until k<=j;
for j:=1 to n do
 begin
  imx:=1;
  for i:=1 to n do
  if a[i,k]>a[imx,k] then
  imx:=i;
  x:=a[imx,k];
 end;
writeln;
 write('MAX[',k,']:=',x);
 writeln;
 if x<>0 then
 begin
  writeln('Полученная матрица: ');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
    b[i,j]:=a[i,j]/x;
    write('  ',b[i,j]:1:1,' ');
    end;
   writeln;
 end;
 end
 else writeln('MAX:=0!!!');
 readkey;
end.

[Grag]

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

Неоднозначное задание.

И что ж там такого неоднозначного?
Находишь в исходной матрице Max элемент в каждом столбце, а в результирующую матрицу записываешь элементы каждого столбца, деленные на Max элемент этого столбца. Куда уж проще...

[ROMA2PVT]

Находишь в исходной матрице Max элемент в каждом столбце, а в результирующую матрицу записываешь элементы каждого столбца, деленные на Max элемент этого столбца. Куда уж проще...

Делал что то типо такого задания подруге.Так ей препод чуть II не поставил.Ну и чё я гадать буду чтоли (яж не бабка гадалка).