natalavorona358
18.10.2020 07:02

с информатикой Распределите программы по видам ПО
Текстовый редактор
Pascal
Электронные таблицы
Система управления базами данных
C++
Бухгалтерские программы
ОС
Программы-драйверы
Системы автоматизированного проектирования
Проверка орфографии
Перевод, распознавание текста
Экспертные системы (электронные советчики )
Delphi
Браузеры (поиск информации в Internet)
QBasic
Системы машинной графики (учебные, научные, инженерные, анимационные…)
Программы контроля, тестирования и диагностики компьютера
Visual Basic
Программы-упаковщики (архиваторы)
Обучающие программы
Издательские системы
Коммуникационные программы (для обмена информацией между компьютерами)
Антивирусные программы
Программы для управления оперативной памятью

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
artursharipoff
01.03.2022 21:28

ответ: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир».

Этапы создания текстового документа: ввод, редактирование, форматирование.

Информация во Всемирной паутине организована в виде страниц (Web-стран).

Объяснение: Тема «Правила ввода текста», гостиница «Малахит», шоколад «Алёнка», роман «Война и мир».

Этапы создания текстового документа: ввод, редактирование, форматирование.

Информация во Всемирной паутине организована в виде страниц (Web-страниц).

Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.иц).

Всё-таки, Мамин-Сибиряк, жар-птица, северо-восток, Ростов-на-Дону, Нью-Йорк. Пришлось волей-неволей остаться здесь на ночь. Горя бояться — счастья не видать. Москва — огромный город, город-страна. Конец XVII века — первая половина XIX века.

0,0(0 оценок)
Ответ:
Shersher8630166
01.04.2020 06:17

// PascalABC.NET

function ВерхнийТреугольник(Матрица: array[,] of integer):

   sequence of integer;

begin

 var ИндексMax := Матрица.RowCount - 1;

 for var ИндексСтроки := 0 to ИндексMax - 1 do

   for var ИндексСтолбца := ИндексСтроки + 1 to ИндексMax do

     yield Матрица[ИндексСтроки, ИндексСтолбца]

end;

begin

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

 var СлучайнаяМатрица := MatrRandom(n, n, -99, 99);

 СлучайнаяМатрица.Println;

 var ПоложительныеЭлементы :=

      ВерхнийТреугольник(СлучайнаяМатрица)

     .Where(Значение -> Значение > 0);

 Println('Сумма положительных элементов равна',

     ПоложительныеЭлементы.Sum);

 Println('Число положительных элементов равно',

     ПоложительныеЭлементы.Count)

end.


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