нужно добавить функцию в программу

[Андрей3636]

program dj;

var i,j:byte;
    summa:real;
    mat: array[1..4,1..6] of real;
    a:array [1..6] of real;
begin  
    for i:=1 to 4 do 
    begin
       Summa:=0;
        a[i]:=0;
        for j:=1 to 6 do 
        begin
            mat[i,j] := random(10)-5;
            write(mat[i,j]:6:1);
            summa:= summa + mat[i,j];
            a[j] := a[j] + mat[i,j]
        end;
        writeln ('   |', summa:8:1);
    end; 
end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Serge_Bliznykov]

"Вы хочете песен? Их есть у меня!"


поскольку непонятно, что за функция нужна, то можно написать так:

function fill_and_sum : boolean;
var i,j:byte;
    summa:real;
    mat: array[1..4,1..6] of real;
    a:array [1..6] of real;
begin  
    for i:=1 to 4 do 
    begin
       Summa:=0;
        a[i]:=0;
        for j:=1 to 6 do 
        begin
            mat[i,j] := random(10)-5;
            write(mat[i,j]:6:1);
            summa:= summa + mat[i,j];
            a[j] := a[j] + mat[i,j]
        end;
        writeln ('   |', summa:8:1);
    end; 
    fill_and_sum := true; //раз не определено, 
                      //  что должна возвращать функция, возвращаем true
end;

begin
  if fill_and_sum() then WriteLn('Good.')
end.