М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
yuliaovcharova
yuliaovcharova
02.02.2022 00:36 •  Информатика

Задана квадратная матрица, состоящая из целых чисел. Сформировать вектор из произведения элементов столбцов и найти их среднее арифметическое.
Напишите алгоритм, как сформировать вектор из произведения элементов столбцов. Можно на естественном написать, как это сделать), алгоритмическом языках, паскале, си. Или же блок схемой. Буду рада любой идее))

👇
Ответ:
DianaHreseva
DianaHreseva
02.02.2022

===== PascalABC.NET =====

begin

 var n := ReadInteger('n =');

 var Матрица := MatrRandom(n, n, -99, 99);

 Матрица.Println;

 var Вектор := Матрица.Cols.Select(Колонка -> Колонка.Product).ToArray;

 Вектор.Average.Print

end.


Задана квадратная матрица, состоящая из целых чисел. Сформировать вектор из произведения элементов с
4,5(1 оценок)
Открыть все ответы
Ответ:

3Ds Max – «пионер» среди 3D редакторов, очень популярный инструмент, №1 в выборе многих начинающих и продвинутых специалистов. Занимает ведущие позиции в сфере дизайна и архитектурной визуализации. Часто используется в игровой индустрии.  

Возможности:

моделирование на основе полигонов, сплайнов и NURBS,

мощная система частиц,

модуль волосы/шерсть,

расширенные шейдеры Shader FX,

поддержка новых и усовершенствованных механизмов Iray и mental ray.

анимация толпы,

импорт из Revit и SketchUp,

интеграция композитинга.

И многое другое.

Плюсы: огромный функционал, множество плагинов и обучающей информации.

Минусы: не так прост в освоении, «старожилу» требуются серьезные обновления.

4,7(95 оценок)
Ответ:
tanshka
tanshka
02.02.2022

//PascalABC.NET версия 3.2, сборка 1389

//Если программа не запускается, то обновите версию

uses System.Linq;

begin

   writeln('III');

   var a := ReadArrInteger('Документы', ReadInteger('n=')).ToList;

   writeln;

   

   while a.Any() do

   begin

       write(a[0], ' ');

       a.RemoveAt(0);

       if not a.Any then break;

       

       write(a.Last, ' ');

       a.RemoveAt(a.Count - 1);

       if not a.Any then break;

       

       var n := 0;

       if a.Count > 1 then n := a.Count div 2 - 1;

       write(a[n], ' ');

       a.RemoveAt(n);

   end;

end.

Объяснение:

4,8(85 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ