program pr;
var
a:array[1..4,1..4] of integer;
i,k,sum,j:integer;
begin
writeln('Ввод значений матрицы(горизонтально по рядам)');
for i:=1 to 4 do
begin
for k:=1 to 4 do
begin
readln(a[i, k]);
end;
end;
writeln('получившаяся матрица:');
for i:=1 to 4 do
begin
for k:=1 to 4 do
begin
write(a[i, k]);
end;
writeln();
end;
sum:=0;
j:=4;
for i:=1 to 4 do
begin
for k:=1 to 4 do
begin
if k<j then sum:=sum+a[i,k];
end;
j:=j-1;
end;
writeln('сумма: ',sum);
end.
функция..
Объяснение:
function arrsum(a: array[1..4,1..4] of real):real;
var
x,y:integer;
sum:real;
begin
sum:=0;
for x:=1 to 3 do
for y:=1 to (4-x) do
sum:=sum+a[x,y];
result:=sum;
end;
