:
program v;
var i,a,d,n,sum,s:integer;
b: array[1. . 5,1. . 5] of integer;
begin
for i:=1 to 5 do
for a:=1 to 5 do
begin
read(b[i,a]);
end;
readln(n);
sum:=0;
for i:= 1 to 5 do sum:=sum+b[n,i];
writeln(sum);
end.
Помним, что у элемента данного массива 2 индекса (первый отвечает за строку, а второй за столбец)
Чтобы сложить определенную строку вместо первого индекса пишем переменную в которую вводим нужный номер строки, а второй индекс изменяем по столбцам через цикл