Задать матрицу А размером n*n. Найти сумму элементов по каждой строке. Тема…

Program chik; var a: array[1… 100,1… 100]of integer; s,n,i,j: integer; beginread (N); for i: =1 to n dobeginfor j: =1 to n dobeginread (a[i,j]); end; end; for i: =1 to n dobegins: =0; for j: =1 to n dobegins: =s+a[i,j]; end; writeln (s); end; end.