Home / Рекомендуемое / Археология / Биографии / СРОЧНО Дана действительная квадратная матрица порядка 4 на 4 Вычислить сумму ниже главной диагонали P S Желательно чтобы числа самому вводить,а не рандомно

СРОЧНО Дана действительная квадратная матрица порядка 4 на 4 Вычислить сумму ниже главной диагонали P S Желательно чтобы числа самому вводить,а не рандомно

СРОЧНО Дана действительная квадратная матрица порядка 4 на 4 Вычислить сумму ниже главной диагонали
P S Желательно чтобы числа самому вводить,а не рандомно

  • Var
    a: array1..4,1..4of integer;
    i, j,s: integer;

    begin
    s := 0;
    for i := 1 to 4 do begin
    for j := 1 to 4 do begin
    write(a,i,,,j, = );
    readln(ai,j);
    end;
    end;
    for i:=2 to 4 do
    for j:=1 to i-1 do s:=s+Ai,j;
    writeln(Сумма элементов под главной диаганалью,s);
    end.

  • 1)var a:array1..4,1..4 of integer;
    i,j,s:integer;
    begin
    for i:=1 to 4 do
    for j:=1 to 4 do
    readln(ai,j);

    for i:=1 to 4 do begin
    writeln();
    for j:=1 to 4 do begin
    write(ai,j,);

    if (i+j>5) then s:=s+ai,j;
    end;
    end;
    writeln();
    write(s);
    end.

    2)var a:array1..4,1..4 of integer;
    i,j,s:integer;
    begin
    for i:=1 to 4 do
    for j:=1 to 4 do
    readln(ai,j);

    for i:=1 to 4 do begin
    writeln();
    for j:=1 to 4 do begin
    write(ai,j,);

    if (i>J) then s:=s+ai,j;
    end;
    end;
    writeln();
    write(s);
    end.


About Author: