var a: array[1..3,1..4] of integer; i,j,s: integer;begin for i:=1 to 3 do begin write('строка ',i,': '); for j:=1 to 4 do read(a[i,j]); end;// вывод массива на экран writeln('массив а по строкам:'); for i:=1 to 3 do begin for j:=1 to 4 do write(a[i,j]:4); writeln; end;// суммы элементов по строкам for i:=1 to 3 do begin s:=0; for j:=1 to 4 do s:=s+a[i,j]; writeln('сумма элементов строки ',i,': ',s); end;end.ввод - выводстрока 1: 10 11 12 13строка 2: 14 15 16 17строка 3: 18 19 20 21массив а по строкам: 10 11 12 13 14 15 16 17 18 19 20 21сумма элементов строки 1: 46сумма элементов строки 2: 62сумма элементов строки 3: 78