Программа

Program Problem4;

const

n = 7;

name = 'd:\Bp\Prakt\P23\arr20a.dat';

name1 = 'd:\Bp\Prakt\P23\matr20wa.dat';

type

t = array[1..n] of integer;

s = array[1..n] of longint;

m = array[1..n] of s;

v = file of t;

vv = file of m;

var

x : t; p : s;

a : m; f : v;

g : vv;

n1, i, j, d, k : integer;

begin

assign(f, name); assign(g, name1);

rewrite(f);

write('Введите число массивов чисел '); readln(n1);

randomize;

for i := 1 to n1 do

begin

for j := 1 to n do x[j] := random(21) - 10;

write(f, x)

end;

reset(f);

writeln('Заданные массивы целых чисел');

while not eof(f) do

begin

read(f, x);

for i := 1 to n do write(x[i]:3, ' ');

writeln

end; writeln;

reset(f);

{$i+}

if IoResult <> 0 then writeln('Такого файла нет');

rewrite(g);

for k := 1 to n1 do

begin

read(f, x);

for d := 1 to n do p[d] := 1;

for j := 1 to n do

for i := 1 to n do

begin

p[i] := x[i]*p[i];

a[j, i] := p[i]

end;

write(g, a)

end;

writeln('Полученные матрицы из заданного массива');

reset(g);

while not eof(g) do

begin

read(g, a);

for i := 1 to n do

begin

for j := 1 to n do write(a[i, j]:10, ' ');

writeln

end; writeln

end;

close(f); close(g)

end.

32