Файл: Создать Файл Записей, каждым компонентом которого будет матрица MxN действительных чисел. - PascalABC.NET - Ответ 9864011

type mtr=record
         a:array[1..10,1..10] of real;//динамические массивы в типизированный файл нельзя
         m,n:integer;
         end;
     mas=record
         b:array[1..10] of integer;
         m:integer;
         end;
var f:file of mtr;//файл матриц
    g:file of mas;//файл массивов
    mt:mtr;
    ms:mas;
    i,j,k,s:integer;    
begin
randomize;
assign(f,'matr');
rewrite(f);
for i:=1 to 3 do//запишем 3 матрицы
 begin
  mt.m:=2+random(4);//по 2-5 строк
  mt.n:=4+random(5);//по 4-8 столбцов
  for k:=1 to mt.m do
  for j:=1 to mt.n do
  mt.a[k,j]:=2+random(21);//значения от 2 до 18
  write(f,mt);
 end; 
assign(g,'mass');
rewrite(g);
reset(f);
writeln('Содержание файла матриц');
while not eof(f) do
 begin
  read(f,mt);//читаем матрицу
  ms.m:=mt.m;//массиву придаем размер=кол.строк матрицы
  for i:=1 to mt.m do//построчно
   begin
    s:=0;
    for j:=1 to mt.n do
     begin
      write(mt.a[i,j]:5:1);//выводим элементы матрицы
      //четные суммируем
      if (frac(mt.a[i,j])=0)and(trunc(mt.a[i,j])mod 2=0)then s:=s+trunc(mt.a[i,j]);
     end;
    ms.b[i]:=s; //пишем сумму в i-товый элемент массива
    writeln;
   end;
  write(g,ms);//пишем полученный массив в файл 
  writeln;  
 end;
 close(f);
 reset(g);
 writeln('Содержание файла массивов');
 while not eof(g) do
  begin
   read(g,ms);
   for i:=1 to ms.m do
   write(ms.b[i]:4);
   writeln;
  end;
 close(g);
 end.