В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Viktoria123vay
Viktoria123vay
23.03.2021 10:21 •  Информатика

)) составьте программу вычисления суммы элементов четных строк массива т (6,5) и произведения элементов нечетных строк.

Ответ:
Catcat123dogdog
Catcat123dogdog
04.10.2020 16:52
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(6,5,-50,50); a.Println(4); Writeln;
  var res:=new int64[6];
  for var i:=0 to 5 do
    if i.IsEven then
      res[i]:=a.Row(i).Aggregate(int64(1),(x,y)->x*y)
    else
      res[i]:=a.Row(i).Sum;
  Writeln('Результаты:'); res.Println(NewLine)
end.

Пример
 -32  22  12   8 -38
  45  22 -12  26  -2
 -46  12  19  42  -1
  19   5  29 -41 -41
  10 -23   2 -19  10
  -4  22  15  34  34

Результаты:
2568192
79
440496
-29
87400
101
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?