Решение. name = 'd:\Bp\Prakt\P23\arr20a.dat';

Program Problem4;

uses WinCrt;

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.

Задача 5. Дан файл, компонентами которого является массив из действительных чисел Записать в файл следующую матрицу: