kristushka29
Опубликовано 7 лет назад по предмету Информатика от kristushka29


Для каждой из матриц Х(8;8) и У(10;10) вычислить сумму элементов,расположенных на главной диагонали и выше её.

  1. Ответ
    Ответ дан sinbad7

    var

    i,j,s:integer;

    x:array[1..8,1..8] of integer;

    y:array[1..10,1..10] of integer;

    begin

    s:=0;

    for i:=1 to 8 do

    for j:=1 to 8 do

    begin

    readln(x[i,j]);

    if i<=j then s:=s+x[i,j];

    end;

    writeln("Сумма для X=", s);

    s:=0;

    for i:=1 to 10 do

    for j:=1 to 10 do

    begin

    readln(y[i,j]);

    if i<=j then s:=s+y[i,j];

    end;

    writeln("Сумма для Y=", s);

    end.

     

     

     

     

Не тот ответ, который вам нужен?
Найди нужный
Задай вопрос

Лучшие за месяц