Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
ryslan3222
06.08.2022 05:21 •
Информатика
буду благодарен. (составить программу расчета количества ненулевых элементов матрицы P (6 * 7), элементы матрицы действительные числа)
Ответ:
alusik2005
30.08.2020 11:50
PascalABC.NET
С ручным заполнением матрицы:
beginvar P := ReadMatrReal(6, 7); Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));end.
С рандомным заполнением матрицы:
beginvar P := MatrRandomReal(6, 7, -10, 10); P.Print; Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));end.
Пример работы:
0,0
(0 оценок)
Популярные вопросы: Информатика
small2005
05.03.2023 09:54
Определите, что будет напечатано в результате работы следующей программы. var s, k:integer; begin s := 0; for k := 2 to 12 do s := s + 11; writeln (s); end....
alenzhaparkulov
01.08.2022 16:04
Составте программу на pascal. сколько существует (невырожденных) треугольников периметра n с целыми длинами сторон? (треугольник со сторонами a,b,c называется невырожденным, если из...
Katya17507
01.08.2022 16:04
Отипе информации , хранящиеся в файле пользователь может узнать: 1 по имени файла 2 по имени каталога в котором хранится файл 3 по полному имени файла 4 по имени логического диска...
MinMinYuna
18.05.2021 20:38
Сколько информации можно записать в тетрадь на 12 листов? сколько таких тетрадей можно записать на дискете с обьемом информации 1,44 мбайт. 1строка = 34 байта 1 лист = 42 строки...
mikkie3
14.03.2021 04:07
Найти количество элементов массива целых чисел из 20 элементов, заполнненного с клавиатуры, меньших среднего арифметического элементов массива Очень...
Mashylka999
16.02.2021 17:44
Марату необходимо нарисовать прямоугольный параллелепипед со сторонами основания 30 см и 40 см, боковое ребро -50 см Марату нарисовать параллелепипед. b. Установите правильную последовательность...
Оля025
31.05.2020 18:52
Запишите значение переменной t, полученное в результате работы следующей программы. текст программы на трёх языках программирования. алгоритмический язык алг нач цел t,i t : = 2 нц...
margogalaxowa
29.08.2022 23:48
Необходимо вывести все четные числа на отрезке [a;a•10]...
artur731
27.11.2021 03:23
Необходимо написать программу выводящую кортеж содержащий числа в полуинтервале [a ;b) если a b и[b ;a)если b a числа а и b вводятся с клавиатуры...
Lera111katy
20.09.2020 03:55
Как можно назвать Англию и Францию по форме правления история СРЕДНИХ ВЕКОВ!...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
С ручным заполнением матрицы:
beginvar P := ReadMatrReal(6, 7); Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));end.С рандомным заполнением матрицы:
beginvar P := MatrRandomReal(6, 7, -10, 10); P.Print; Print('Количество ненулевых элементов:',P.ElementsByRow.Count(x->x<>0));end.Пример работы: