29.05.2008, 21:41
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Вот, пожалуйста, изучайте процедуру вывода - годится для любого двумерного массива чисел.
<code><b>const</b> n=4; m=3;
<b>type</b> mas=<b>array</b> [<font color=purple>1</font>..n,<font color=purple>1</font>..m] <b>of</b> real;
<b>procedure</b> outMas(x:mas); <font color=green>{процедура вывода}</font>
<b>var</b> i,j:integer;
<b>begin</b>
<b>for</b> i:=1 <b>to</b> n <b>do</b> <b>begin</b>
<b>for</b> j:=1 <b>to</b> m <b>do</b> <b>write</b>(x[i,j]:6:1);
writeln;
<b>end</b>;
<b>end</b>;
<font color=green>{*** Основная программа ***}</font>
<b>var</b> a:mas;
<b>begin</b>
outMas(a); <font color=green>{вызов процедуры}</font>
readln;
<b>end</b>.</code>
Good Luck!