profile
Опубликовано 6 лет назад по предмету Информатика от Radik302

Нужна срочно помощь по Паскаль
Задана матрица A(K,L) найти сумму элементов в каждом ряду с парным индексом и создать с них одномерный массив

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

    begin

     var (k, l) := ReadInteger2();

     var a := MatrRandom(k, l, 0, 9); a.Println;

     var b := new integer[k];

     

     for var i := 0 to k - 1 do

       b[i] := a.Row(i).Where((x, i)-> (i + 1).IsEven).Sum;

     

     Println;

     b.Println;

    end.

    1. Ответ
      Ответ дан iolandavalerypad353
      Если будете вводить матрицу вручную, замените строку 3 на следующую: var a := ReadMatrInteger(k, l);
Самые новые вопросы