Двумерный массив в паскале

[swedalena]

Народ помогите пожалуйста , а то я совсем запуталась !!!! Мне нужно создать двумерный массив N=8 M=5 a=9*i*i+j*j-50 .

[ROMA2PVT]

uses crt;
Const
n=8;
m=5;
var
 a: array [1..n,1..m] of integer;
 i,j: integer;
begin
 clrscr;
  writeln('Матрица А: ');
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
       a[i,j]:=9*i*i+j*j-50;
       write(a[i,j]:4,' ');
      end;
      writeln;
    end;
    writeln;
    end.

[Stranger333]

а у вас елемент масива??? ксли да то вот

const n=8; m=5;
var
a:array [1..n,1..m] of integer;
i,j : integer;
begin
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=9*i*i+j*j-50;
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(a[i,j]:5);
    end;
    writeln;
  end;
  readln;
end.

[ROMA2PVT]

Как уже нераз мне говорилось:''Нечего плодить циклы''.

[swedalena]

Спасибо большое=)

[swedalena]

не запускается.пишет системе не удается найти указаный путь .

[ROMA2PVT]

какая именно?

[swedalena]

все.У меня полностю звучит задание так:Создать двумерный массив . Элементы массива рас¬считать по формуле. Над элементами массива произвести указанные действия.Найти минимальный по модулю элемент в каждом столбце массива.Вот как написала:Program Pr_4;
uses crt;
const n=8; m=5;
var
a:array [1..n,1..m] of integer;
i,j : integer;
begin
for i:=1 to n do
for j:=1 to m do
a[i,j]:=9*i*i+j*j-50;
for i:=1 to n do
begin
for j:=1 to m do
begin
write(a[i,j]:5);
end;
min:=X[1];
Nmin:=1;
for i:=2 to N do
if Х[i]<min then
begin
min:=X[i];
Nminx:=i;
end;
writeln ('min=',Max:l:3, ' Nminx=', Nminx);
writeln;
end;
readln;
end.
Правильно?

[ROMA2PVT]

uses
  crt;
Const
c=8;k=5;
var
  mas:array [1..c,1..k] of integer;
  i,j,imin:integer;
begin
randomize;
      writeln('массив A: ');
  for i:=1 to c do
    begin
    for j:=1 to k do
    begin
      mas[i,j]:=9*i*i+j*j-50;
      write(mas[i,j]:3,' ');
    end;
    writeln;
    end;
    writeln;
  for j:=1 to k do
  begin
   imin:=1;
  for i:=1 to c do
   if abs(mas[i,j])<abs(mas[imin,j]) then
    imin:=i;
    writeln('Минимальный элемент ',j,'-го столбца:=',mas[imin,j]);
  end;
writeln;
     end.

ЧТО ПИШЕТ?

[swedalena]

Не запускается .