Question

дана действительная матрица размера 3*4. найти сумму элементов последнего столбца данной матрицы

Answer 1

var a:array[1..3,1..4]of integer;

j,i,sum:integer;

begin

for i:=1 to 3 do for j:=1 to 4 do readln(a[i,j]);

for i:=1 to 3 do sum:=sum+a[i,4];

writeln(sum);

end.