|
program Arrays_operation;
uses crt;
var x : array [1..3, 1..3] of real;
i, j, x_position, y_position : byte;
inttostr : string;
begin
clrscr;
x_position:=1;
y_position:=1;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
read (x[i,j]);
str(x[i, j],inttostr);
gotoxy (x_position + length(inttostr) + 1, y_position);
x_position:=length(inttostr);
end;
x_position:=1;
y_position:=y_position + 1;
gotoxy(x_position, y_position);
end;
end.
E-mail: info@telesys.ru