Question

В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать сумму элементов, стоящих на побочной диагонали в квадратной матрице 6х6.
1) program diag;
2) var
3) mat:array[1..6,1..6] of integer;
4) i,j,s:integer;
5) begin
6) s:=0;
7) for i:=1 to 6 do
8) for j:=1 to 6 do
9) read(mat[i,j]);
10) for i:=1 to 6 do
11) for j:=1 to 6 do
12) if i=j then s:=s+ mat[i,j];
13) write('Сумма элементов, стоящих на побочной диагонали ’);
14) writeln(s);
15) end.
А) 12 Б) 14 В) 11 Г) 6

Answer 1

Ошибка в строке 12.
Указано условие нахождения элемента на главной, а не на побочной диагонали.
Должно быть: if j=7-i then s:=s+ mat[i,j];

Ответ: А) 12