Рассмотрите скриншоты программного кода для проверки арифметических действий программа выводит ошибку при запуске а) определите и исправьте ошибку б) предложить способ улучшение програмного кода

149

423

Посмотреть ответы 1

Ответы на вопрос:

botuguruur

Информатика

4,8(32 оценок)

Program arr; const n=3; var i, j, tmp, k, z: integer; c: boolean; a: array [1..n,1..n] of integer; begin c: =false; for i: =1 to n do for j: =1 to n do read(a[i][j]); for i: =1 to n do for j: =1 to n do begin tmp: =a[i][j]; for k: =i+1 to n do for z: =j+1 to n do if tmp = a[k][z] then c: =true; end; writeln; for i: =1 to n do begin for j: =1 to n do write(a[i][j], ' '); writeln; end; if c = true then writeln('в данном массиве есть равные друг другу элементы') else writeln('элементы, равные друг другу, отсутсвуют в данном массиве'); end.