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

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

Задать свой вопрос
Даша Штоклянд
правильнее указывать четный или нечетный порядковый номер, а не индекс, поэтому что индексы могут быть различные
1 ответ

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)-gt; (i + 1).IsEven).Sum;

 

 Println;

 b.Println;

end.

Серега
Если будете вводить матрицу вручную, поменяйте строчку 3 на последующую: var a := ReadMatrInteger(k, l);
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт