czy może mi ktos powiedzieć gdzie jest blad ?? :-(
var
A1, A2, AW : array of array of double;
x,y : integer;
krok : double;
const
rozmiartab = 10;
{$R *.res}
begin
krok := 2.0 / rozmiartab;
setlength(A1,rozmiartab,rozmiartab);
setlength(A2,rozmiartab,rozmiartab);
setlength(AW,rozmiartab,rozmiartab);
for y:=1 to rozmiartab do
for x:=1 to rozmiartab do
begin
A1[x,y] :=(1) + (x+krok);
A2[y,x] :=(1) + (x+krok);
end;
for y:=1 to rozmiartab do for x:=1 to rozmiartab do
AW[x,y] := sqr(A1[x,y]) + sqr(A2[y,x]);
Writeln( '',A1[x,y] );
Writeln('A2= ', A2[x,y] );
Writeln( AW[x,y] );
Readln;
end.