sum:=0;
n:=0;
for i:=0 to length(matrix)-1 do
if matrix[i,length(matrix)-1=1 then
begin
n:=n+length(matrix);
for j:=0 to length(matrix)-1 do
sum:=sum+matrix[i,j];
end;
avg:=sum/n;
Обработка массивов переменной длины /Delphi/
помогите решить, буду очень признателен...
Код:
Примерно так