Составить блок схему const n = 10; var a: array[1..n, 1..n] of integer; s: longint; i, j, k: byte; begin write('введите размер матрицы: '); readln(k); for i: = 1 to k do for j: =1 to k do begin write('a[', i, ',', j, ']='); readln(a[i,j]); end; for i: =1 to k do if a[i,i]< 0 then begin s: =0; for j: =1 to k do s: =s+a[i,j]; writeln('в ',i,' строке сумма = ',s); end; for i: = 1 to k do begin for j: =1 to k do write(a[i,j]: 4); writeln; end; end.
