"Двумерный массив"

[maliyusha]

Здравствуйте,очень прошу откликнутся всех! Нужна помощь в решении двумерного массива,по рядам и интегралам вроде сделала,а на массивы сил не хватает. Сдать нужно на завтра,иначе незачет.
Задача:
Найти наибольший элемент aik матрицы A, элементы которой вычисляются по формуле aik=xi∗yk.
Векторы X = {x1, x2,..., xi} и Y= {y1, y2, ..., yk} считаются заданными. (на языке Паскаль). Если можно с комментариями,если сильно лень-без. Заранее спасибо

[Sazary]

uses crt;

const M=3;N=3;
var
a : array[1..M,1..N] of integer;
x : array[1..M] of integer;
y : array[1..N] of integer;
i,j,max : integer;

begin
clrscr;
{ Vvod elementov x }
for i:=1 to M do
 begin
 write('Vvedite x[',i,']: ');
 readln(x[i]);
 end;
{ Vvod elementov y }
for j:=1 to N do
 begin
 write('Vvedite y[',j,']: ');
 readln(y[j]);
 end;

{ Vychislenie i vyvod elemtov matricy }
writeln;
for i:=1 to M do
 begin
 for j:=1 to N do
  begin
  a[i,j] := x[i]*y[j];
  write(a[i,j]:4);
  end;
 writeln;
 end;
{-------}
writeln;
{ Nahozhdenie maximuma }
max := a[i,j];
for i:=1 to M do
 for j:=1 to N do
  if a[i,j]>max then max:=a[i,j];

writeln('Maximum= ',max);

readln;
end.

На всякий случай скажу, что я специально сделал несколько циклов. Максимум вполне можно находить при заполнении матрицы.

[maliyusha]

Огромное спасибо!!! Вы меня очень выручили! Замечательная программа получилась