В какой строчке допущена ошибка в программе, написанной на языке 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

Question

Информатика

Тимаха

27 октября, 09:52

В какой строчке допущена ошибка в программе, написанной на языке 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

+4

Ответы (1)

Знаете ответ на вопрос?

Юнона · Answer 1

Ошибка в строке 12.

Указано условие нахождения элемента на главной, а не на побочной диагонали.

Должно быть: if j=7-i then s:=s + mat[i, j];

Ответ: А) 12