29.05.2008, 17:15
общий
это ответ
Здравствуйте, Sokolov Vitaliy Aleksandrovich!
Вот код, который соответствует Вашему условию:
<code><b>const</b> m=5; n=4;
<b>type</b> mas=<b>array</b> [<font color=purple>1</font>..m,<font color=purple>1</font>..n] <b>of</b> integer;
<b>procedure</b> fRead(<b>var</b> x:mas); <font color=green>//процедура чтения
</font><b>var</b> i,j:integer;
<b>begin</b>
assign(input,<font color=blue>‘input.txt‘</font>); reset(input);
<b>for</b> i:=1 <b>to</b> m <b>do</b> <b>begin</b>
<b>for</b> j:=1 <b>to</b> n <b>do</b> <b>read</b>(x[i,j]);
readln;
<b>end</b>;
close(input);
<b>end</b>;
<b>procedure</b> fWrite(x:mas); <font color=green>//процедура записи
</font><b>var</b> i,j:integer;
<b>begin</b>
assign(output,<font color=blue>‘output.txt‘</font>); rewrite(output);
<b>for</b> i:=1 <b>to</b> m <b>do</b> <b>begin</b>
<b>for</b> j:=1 <b>to</b> n <b>do</b> <b>write</b>(x[i,j]:5);
writeln;
<b>end</b>;
close(output);
<b>end</b>;
<font color=green>//************* Основная программа **************
</font><b>var</b> a:mas;
<b>begin</b>
<font color=green>//использование процедур
</font> fRead(a);
fWrite(a);
<b>end</b>.</code>
<b><i>Примечание:</i></b> При заполнении файла с данными (input.txt) вводите по четыре числа в строке разделённые пробелами!
Good Luck!