В текстовом файле с именем matrica.txt записана следующая числовая матрица. Создать массив по правилу: 1 элемент этого массива равен
Вопрос посетителя
В текстовом файле с именем matrica.txt записана следующая числовая матрица. Создать массив по правилу: 1 элемент этого массива равен сумме элементов 1 строки матрицы, 2 элемент – сумме 2 строки и т.д. В файл с именем matrica2.txt вывести числовую матрицу и полученный массив
Ответ эксперта
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.
