Question

В текстовом файле с именем matrica.txt записана следующая числовая матрица. Создать массив по правилу: 1 элемент этого массива равен

Answer 1

Program Matrica;
Var M1: array [1..4,1..5] of integer;
      M2: array [1..4] of integer;
      i,j: byte;  s:integer;
      F1: text; {файловая   
                     Переменная}
Begin
    Assign (F1,'matrica.txt'); {Связывание   
                        F1 с файлом matrica.txt}
    Reset(F1); {Открытие файла
                      для чтения}
    For i:=1 to 4 do
    Begin
      For j:=1 to 5 do
        Read (F1, M1[I,j]); {Последовательное чтение из одной строки}
        Readln(F1) {переход к
                            следующей строке}
    End;
    Close(F1); {Закрытие файла}
For i:=1 to 4 do
    Begin
      s:=0;
      For j:=1 to 5 do
        s:=s+M1[i,j];{находим сумму
                             элементов i строки}
      M2[i]:=s
    End;
    Assign (F1,'matrica2.txt'); {Связывание F1 с файлом matrica2.txt}
    Rewrite (F1); {открытие файла
                           для записи}
For i:=1 to 4 do
    Begin
      For j:=1 to 5 do
         Write (F1, M1[i,j]:4);
         Writeln(F1)
    End;
    WriteLn(F1);
    For i:=1 to 4 do Write(F1,M2[i]:4);
    Close(F1); {Закрытие файла}
End.