1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
program iomrewrsex;
uses
typ, iom, inv;
var
A: array[1..10, 1..10] of arbfloat;
i: longint;
j: longint;
s: ArbString;
n, m: longint;
begin
iomrems('{1 2}{3 4}{5 6}', A[1, 1], m, n, 10);
for i := 1 to m do
for j := 1 to n do
writeln('A[', i, ',', j, '] = ', A[i, j]);
{ Print matrix A }
iomwrms(s, A[1, 1], m, n, 2, 10);
writeln('A = ', s);
end.
|
