mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-09 22:29:21 +02:00
24 lines
396 B
ObjectPascal
24 lines
396 B
ObjectPascal
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.
|