Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
определение1
01.09.2022 19:52 •
Информатика
Решить в паскале авс.6. дан двумерный массив размерности nxm. посчитать количество нечетных элементов матрицы. полученный результат вывести на экран.
Показать ответ
Ответ:
angelinasd2007
02.10.2020 14:55
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
0,0
(0 оценок)
Популярные вопросы: Информатика
prisnik1252
24.09.2020 01:14
Алфавит одного племени состоит из x символов, алфавит другого племени содержит в четыре раза больше символов. племена обменялись . каждое по 100 символов. на сколько бит информации...
guast1
11.03.2023 20:19
Python дано целое число n. определите, есть ли в его записи хотя бы один ноль....
карина2148
21.08.2020 04:12
Написать программу на паскале, (максимально просто)дан массив из 15 элементов, отсортировать по возрастанию элементы массива являющиеся простыми числами....
almira666ozs336
28.07.2022 20:22
Написать программу на паскале (максимально просто)дан массив из n элементов. к найти сумму элементов наибольшей возрастающей последовательности подряд идущих элементов массива.например:...
kapyringeorgy
12.04.2020 10:59
Где-то в поле Робота находится вертикальная стена с отверстием в одну клетку, размеры которой неизвестны. Робот из произвольной клетки справа от стены, но обязательно напротив нее,...
anonims123456789
18.10.2020 23:14
очень что,по вашему мнению,стимулировало развитие технологий обработки текстовой информации?как это связано с понятием «безбумажные технологии»?наступит ли такое время,когда все технологии...
sofaaa77
08.05.2023 05:21
Сколькими можно рассадить 3 человека на 7 стульев?...
olmilevskaya1
19.09.2021 17:24
(первая буква гласная) и((последняя буква согласная) или (вторая буква согласная)) 1) Аида,2)сергей,3)Степан,4)Артём ...
Zashas1
09.01.2021 06:29
17. Митрофанушка подобрал на улице брошюру банка, предлагающую открыть сверхвыгодный вклад сроком на три года. Брошюра гласила: «Если Высостоятельный молодой человек, ищущий возможность...
KLerK11
09.01.2021 06:29
напишите f(x) круга и напишите что за что отвечает (допустим когда получается полукруг, какой диаметр у этого круга какой центр и если есть еще что надо знать напишите тоже...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.