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

Мирон Кузнецов

Информатика

21 февраля, 09:31

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

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