// PascalABC.NET 3.0, сборка 1088 var a:array[1..5,1..5] of byte; i,j:byte; begin for i:=1 to 5 do begin for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end; Writeln end end.
Var a:array[0..4,0..4] of integer; i,j,m:integer; begin for i:=0 to 4 do begin m:=i;for j:=0 to 4 do begin a[i,j]:= m; write(a[i,j]:2); m:=m +1; end; writeln; end; end.
var
a:array[1..5,1..5] of byte;
i,j:byte;
begin
for i:=1 to 5 do begin
for j:=1 to 5 do begin a[i,j]:=i+j-2; Write(a[i,j]) end;
Writeln
end
end.
Тестовое решение:
01234
12345
23456
34567
45678
begin
for i:=0 to 4 do begin
m:=i;for j:=0 to 4 do begin
a[i,j]:= m; write(a[i,j]:2);
m:=m +1; end;
writeln; end; end.