Для заданного числа N постройте квадратную матрицу, элементы которой определяются заданным образом - Pascal - Ответ 9116002

{$MODE TP}
type
    TArray = Array[Byte] Of Array[Byte] Of Double;
function Zad1(const ar: TArray; const n: Byte): Double;
var
    Result: Double; //удалить строку при ошибке повторного объявления
    i: Byte;
begin
    Result := 0;
    for i := 0 to n - 1 do
        Result := Result + ar[i, i];
    Zad1 := Result;
end;
 
function Zad2(const ar: TArray; const n: Byte; const searchForMin: Boolean): Double;
var
    i, j, iz, jz: Byte;
begin
    iz := 0; jz := 0;
    for i := 0 to n - 1 do
        for j := 0 to n - 1 do
            if (((Not searchForMin) And (ar[i, j] > ar[iz, jz])) Or ((searchForMin) And (ar[i, j] < ar[iz, jz])))
            then
            begin
                iz := i;
                jz := j;
            end;
    Zad2 := ar[iz, jz];
end;
 
function Zad3(const ar: TArray; const n: Byte): Word;
var
    Result: Word; //удалить строку при ошибке повторного объявления
    i, j: Byte;
begin
    Result := 0;
    for i := 0 to n - 1 do
        for j := 0 to n - 1 do
            if (ar[i, j] > 0)
            then
                Inc(Result);
    Zad3 := Result;
end;
 
function Zad4(const ar: TArray; const n: Byte): Double;
var
    min, max, i, j: Byte;
begin
    min := 0; max := 0;
    i := n - 1;
    if (Odd(i))
    then
        Dec(i);
    for j := 1 to n - 1 do
    begin
        if (ar[0, j] < ar[0, min])
        then
            min := j;
        if (ar[i, j] > ar[i, min])
        then
            max := j;
    end;
    Zad4 := ar[i, max] - ar[0, min];
end;
 
function Cij(const i, j: Byte): Double;
var
    Result: Double; //удалить раздел var вместе с этой строкой при ошибке повторного объявления
begin
    if (i > j)
    then
        Result := Sqrt(Abs(Cos(2 * i)))
    else
        if (i = j)
        then
            Result := 2 - Ln(i + j)
        else
            Result := Sin(2 * (i + j) / 5);
    Cij := Result;
end;
var
    c: TArray;
    i, j, n: Byte;
begin
    repeat
        Write('Input n='); ReadLn(n);
    until (n > 0);
    for i :=  0 to n - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            c[i, j] := Cij(i + 1, j + 1);
            Write(c[i, j]:6:2);
        end;
        WriteLn;
    end;
    WriteLn('Zad1=', Zad1(c, n):0:3);
    WriteLn('Zad2 (min)=', Zad2(c, n, True):0:3);
    WriteLn('Zad2 (max)=', Zad2(c, n, False):0:3);
    WriteLn('Zad3=', Zad3(c, n));
    WriteLn('Zad4=', Zad4(c, n):0:3);
end.