Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ивангаййййййййй
30.11.2020 23:21 •
Информатика
Дан двумерный массив c[3,2] целых чисел заполненных случайным образом определить количество чётных положительных элементов второй строки
Показать ответ
Ответ:
Sashas16
02.07.2020 16:17
Var
i, k, Count: Integer;
begin
Count:=0;
for i:=0 to 2 do
for k:=0 to 1 do
c[i][k]:=Random(300) - 100;
for i:=0 to 1 do
if ((c[1][i] Mod 2 = 0) And (c[1][i] >= 0) then
Inc(Count); // увеличиваем переменную на 1цу
WriteLn(Count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
cazydays
31.01.2020 19:19
Дано двовимірний масив n*m елементів. Знайти суму елементів головної діагоналі. С кто понимает... За SOS...
23Олеся1
15.04.2021 05:56
Вычислите, какое количество информации содержит 2.5-часовой цветной фильм, если один его кадр содержит около мегабайта информации, а за 1 секунду сменяется 25 кадров. Оцените...
Марина0506
01.05.2020 18:12
Запись некоторого числа в шестнадцатеричной системе счисления состоит из 24 цифр. Известно, что при этом использовали только цифры 7 и Е. Перечислите через пробел в порядке...
onpapion
19.11.2020 14:47
цеякі в цикла з параметром відмінності від циклу завжди...
GamerPro3922
26.12.2022 14:34
Напишіть рівняння взаємодії гліцину з:магнієм, кальцій оксидом, магній гідроксидом,етиловим спиртом, амінооцтовою кислотою...
Анимешник0
07.10.2022 11:25
4. Даны две параллельные прямые SW и UV и секущие КТи RT.a) ZROW = 65° Найдите градусную меруb) ZSMT на 58 больше угла ДUTM. Найдите эти углы.c) Найдите градусную меру АМТО....
privetloll
16.09.2020 07:56
1. Прочитайте текст и выполните задания Спортивный костюмКогда я первый раз пошел на тренировку всекцию бокса, мне подарили спортивныйкостюм. Он и сейчас у меня хранится.Спортивный...
larisa114
16.09.2020 07:56
Визначте прискорення вільного падіння на висоті, що дорівнює двом радіусам Землі. Маса Землі 6*1024, радіус Землі 6400 км....
amanamisa1
14.01.2021 21:21
На диаграмме, представлена информация о распределении продаж бытовой техники по разным типам торговых предприятий за последний год в некотором городе. Всегоза указанный период...
муратмурмур
29.05.2023 01:14
Знайдіть сьомий член арифметичної прогресії -4; 1; 6; ......
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, k, Count: Integer;
begin
Count:=0;
for i:=0 to 2 do
for k:=0 to 1 do
c[i][k]:=Random(300) - 100;
for i:=0 to 1 do
if ((c[1][i] Mod 2 = 0) And (c[1][i] >= 0) then
Inc(Count); // увеличиваем переменную на 1цу
WriteLn(Count);
end.