Краткий краткий конспект о базовом системном ПО и системах программирования

211

377

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

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

ketkovalchuk

Информатика

4,4(52 оценок)

а ты тут что хочеш я не понел

anuta07121971

Информатика

4,4(30 оценок)

Program gogo; uses crt; const n=10; var a: array[1..n,1..n] of real; sm: real; i,j: byte; begin clrscr; for i: =1 to n do begin for j: =1 to n do begin write('vvedite ',i,'.',j,' cifru '); readln(a[i,j]); end; end; sm: =0; for i: =1 to n do begin for j: =1 to n do begin if j> i then sm: =sm+abs(a[i,j]); end; writeln; end; write('summa=',sm: 0: 3); readln end.