Question

НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЬ! Нахождение суммы чисел в матрице, ввод чисел осуществить из файла matrix.txt вывод на экран.

Answer 1

//Раз на первый вопрос господина Alviko Вы не ответили, буду считать что количество столбцов и строк уже задано.
//Pascal ABC.NET v3.1 сборка 1172

Const
n=3; //количество строк
m=4; //количество столбцов

Var
 f:text;
 ma:array[1..n,1..m] of integer;
 i,j,s:integer;
begin
 assign(f,'matrix.txt');
 reset(f);
 for i:=1 to n do
 begin
  for j:=1 to m do
   begin
   read(f,ma[i,j]);
   s:=s+ma[i,j];
   end;
 end;
 close(f);
 for i:=1 to n do
 begin
  writeln;
  for j:=1 to m do
   write(ma[i,j]:4);
 end;
 writeln;
 write(s);
end.

matrix.txt:
1 2 3 4
4 5 6 4
7 8 9 4
Вывод программы:

   1   2   3   4
   4   5   6   4
   7   8   9   4
57

Answer 2

Сказано же вывести и матрицу. А если рассматривать как просто последовательность чисел, то я бы, конечно, просто читал в одну переменную и складывал.

Answer 3

И даже если бы в файле первой записью были значения m,n - достаточно было бы прочитать их, пееремножить, а затем все равно найти сумму полученного количества значений.

Answer 4

Постановка задачи тупая. Уж тогда бы просили построчно суммы что ли....

Answer 5

Построчно я не умею. Пока не умею. В четверг будет свободное время - разберу.

Answer 6

Да просто сумму обнулять после каждого прохода во внутреннем цикле по строке