не работает в чем проблема????

[иррришенька1]

program nh;
uses crt;
const
m=6;
n=3;
var
a:array [1..m,1..n] of integer;
i,j,b:integer;
begin
clrscr;

randomize;
writeln('vvedite a');
read(b);
begin
for i:=1 to m do
begin
for j:=1 to n do
begin


a[i,1]:=b;
a[i,2]:=2*(j+i);
a[i,3]:=random(9);

end;
write(a[i,j]:3);
end;
writeln;
end;
readln;
end.

и еще одна

program nh;
uses crt;
const
m=6;
n=3;
var
a:array [1..m,1..n] of real;
i,j:integer;
begin
clrscr;
randomize;
writeln('massiv:');
for i:=1 to m do
begin
for j:=1 to n do
begin
case j of
1:a[i,1]:=(i+j)*(i+j);
2:a[i,2]:=sqrt(a[i-1,j]);
3:a[i,3]:=(a[i-2,j]) mod (a[i-1,j]);
end;
write(a[i,j]:3);
end;
writeln;
end;
readln;
end.

в чем проблемы??????????????????????????? ?????????????????

[Pein95]

вы хоть задание напишыте и как оно должно работать и где ошыбка

[иррришенька1]

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

[Stilet]

Думаю тебе нужно что-то в этом роде:

const
m=6;
n=3;
var
a:array [1..m,1..n] of real;
i,j:integer;
begin
 randomize;
 writeln('massiv:');
 for i:=1 to m do begin
  for j:=1 to n do begin
   a[i,j]:=1+random(100);
   case j of
    1:a[i,1]:=(i+j)*(i+j);
    2:if i>1 then a[i,2]:=sqrt(a[i-1,j]);
    3:if (i>2)and(a[i-1,j]<>0) then a[i,3]:=trunc((a[i-2,j]) / (a[i-1,j]));
   end;
   write(a[i,j]:10:3);
  end;
  writeln;
 end;
readln;
end.

Но мой тебе совет - уточни задание. Какое-то оно стремное...