Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
busiginanst99
02.07.2021 05:14 •
Информатика
Дан двумерный массив tab размером 4 на 5 определите количество четных элементов массива. напишите программу в паскале!
Показать ответ
Ответ:
FrelPro
09.10.2020 11:47
Var
tab: array[1..4, 1..5] of integer;
i, j, k: integer;
begin
k := 0;
for i := 1 to 4 do
for j := 1 to 5 do
begin
read(tab[i][j]);
if tab[i][j] mod 2 = 0 then k := k + 1;
end;
writeln(k);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
dmmkuplinov
18.11.2022 23:31
Какие свойства безопасности информации защищает антивирус на персональном компьютере? а. доступность и надёжность б. конфиденциальность и целостность в. конфиденциальность...
аленагут1
18.11.2022 23:31
Какие из перечисленных протоколов передачи информации является более безопасными: http, https, ftp, telnet, ssh?...
образец
18.11.2022 23:31
Надо сделать типо введите кнопку y это завершение программы а если ввели z то продолжение, как сделать вот пример readln (c); until c in [ z , z , y , y ]; if c in [ y ,...
RudiSlav
22.10.2021 23:45
Перевести программы с языка c++ на язык паскаль: 1. int a,b; cin » a»b; a = 2* a; if(a b){a = 2*b; } else if (a else if(a==b){a = a + b; } cout « a; 2. int x = 64; int y...
vova01092005
12.05.2023 20:27
Продолжите правильно ряд: с- кен томпсон и денис ритчи, basic- томас курц и джон кемени, 1) никлаус вирт; 2)паскаль блез; 3) готфрид вильгельм лейбниц; 4) гвидо ван россум....
sashabibik777
12.05.2023 20:27
Составь алгоритм для чертежника. рисование правильной шестиконечной звезды, не поднимая пера, не меняя цвета линий и не проводя по одной линии дважды.( программа кумир)...
nastyamaksimis
12.05.2023 20:27
Какой минимальный объем видеопамяти необходим для хранеyия 8-цветного изображения, если разрешающая экрана 320 х 400? ответ запишите в байтах....
shutilkaha
12.05.2023 20:27
Сколько бит видеопамяти требуется для кодирования однго пикселя 64-цветного изображения?...
mashaivedmed05
11.09.2020 08:08
Выполните действие и запишите ответ 54 div 4 - 12 mod 5...
ruskei
17.09.2021 01:19
Айнымалы аты қалай тандалады айнымалы қалай тандаладыайнымалыларда қандай сипаттар болады.айнымалы типі деген неқандай деректер типі құрамдас болып табылады жауап берінші...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
tab: array[1..4, 1..5] of integer;
i, j, k: integer;
begin
k := 0;
for i := 1 to 4 do
for j := 1 to 5 do
begin
read(tab[i][j]);
if tab[i][j] mod 2 = 0 then k := k + 1;
end;
writeln(k);
end.