Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Belay28
23.04.2021 13:06 •
Информатика
Определить количество положительных элементов в каждом столбце двумерного массива. если можно то на паскале а если нет тогда на с++
Показать ответ
Ответ:
ттатт
01.09.2020 21:10
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := MatrRandomInteger(ReadInteger('m='), ReadInteger('n='), -50, 50); a.Println();
Range(0, a.ColCount - 1).Select(t -> a.Col(t).Where(t -> t > 0).Count).Print;
end.
Пример:
m= 4
n= 8
-48 24 13 -37 -42 11 -35 8
16 40 -31 -21 -15 7 36 24
28 -19 -35 -42 10 16 -1 -37
33 39 19 -8 37 -26 12 -12
3 3 2 0 2 3 2 2
0,0
(0 оценок)
Популярные вопросы: Информатика
tyulegenevapolina
03.05.2023 20:46
НАПИСАТЬ КОД ПО ИНФОРМАТИКЕ ЧЕРЕЗ IF,...
123456на
02.05.2020 03:12
Найдите длину окружности p заданного радиуса p=2pr...
ваня1340
09.01.2023 19:21
Какое число будет отображаться в ячейке Е10...
egorkarevyakin
19.12.2021 06:37
Питання №1 ? Чому дорівнює довжина і ширина видимої частини полотна після його створення? довжина 600 кроків, висота 500 кроків довжина 560 кроків, висота 680 кроків довжина...
antoshkaromanov
15.12.2022 18:50
ИНФОРМАТИКА 7 КЛАСС, НАПИШИТЕ ПРОГРАММУ ЧЕРЕЗ...
ayperi2
07.09.2021 03:11
Какова иерархия применения стилей к абзацу в ворде...
liza1392
07.12.2021 14:31
В ячейку А1 записано число 17. В ячейку В1 записана формула: =ЕСЛИ(А1 10; 2; ЕСЛИ(А1 15;3; ЕСЛИ(А1 20;4; 5))). Чему будет равно значение в ячейке В1? Выберите один ответ: a....
Nelia88
17.04.2021 09:04
В таблице «Расстояния между городами» представлены расстояния между парами объектов, принадлежащих одному классу «город», поэтому объекты этого класса занесены и в строки, и...
Tillll
01.12.2021 03:42
Введите с клавиатуры список чисел. Затем введите число n. Необходимо найти элемент в списке, который ближе всего к числу n. Если таких чисел несколько – необходимо выбрать наименьшее...
Tokuz
11.01.2022 14:48
Какое число будет отображаться в ячейке D10...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := MatrRandomInteger(ReadInteger('m='), ReadInteger('n='), -50, 50); a.Println();
Range(0, a.ColCount - 1).Select(t -> a.Col(t).Where(t -> t > 0).Count).Print;
end.
Пример:
m= 4
n= 8
-48 24 13 -37 -42 11 -35 8
16 40 -31 -21 -15 7 36 24
28 -19 -35 -42 10 16 -1 -37
33 39 19 -8 37 -26 12 -12
3 3 2 0 2 3 2 2