Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
snikola97
17.06.2022 18:34 •
Информатика
Дан двумерный массив. определить, есть ли среди элементов массива данное число q. написать программу, . заранее : )
Ответ:
ржакаmaker
08.10.2020 02:19
// PascalABC.NET 3.3
const n=7;
begin
Writeln('Исходный массив:');
var a:=MatrRandom(n,n,-10,10); a.Println(6);
var q:=ReadInteger('q = ');
var m:=a.ElementsByRow.Where(x->x=q).Count;
if m>0 then writeln('YES') else writeln('NO');
end.
Пример:
Исходный массив:
0 -1 -10 7 5 5 5
-3 8 8 -8 4 10 0
-2 9 -1 -4 -10 -2 2
-9 6 10 -4 3 -5 4
-3 9 4 -6 8 10 -2
4 -1 -2 8 9 -8 -3
5 6 2 5 9 3 8
q = 9
YES
0,0
(0 оценок)
Популярные вопросы: Информатика
pashamironov20
13.08.2021 20:00
Вариант 4.№1. Напишите программу, которая в последовательности натуральных чиселопределяет сумму чисел, кратных 7.Программа получает на вход количество чисел в последовательности,...
kolisnyk98
03.05.2022 06:59
Рассчитайте время звучания стерео-аудиофайла, если при 8-битовом кодировании и чистоте дискретизации 32000 его обьем равен 3500кб...
Арина20071278383
29.11.2021 22:04
Скорость передачи данных через некоторое соединение равна 128 000 бит/с. Сколько времени (в минутах) займёт передача файла объёмом 5 Мбайт по этому каналу?...
ivan89052
12.02.2022 12:08
1 Килобайт - это сколько байт?1 Мегабайт - это сколько байт?1 Гигабайт- это сколько байт?1 Терабайт - это сколько байт?В ответе укажите соответствующую степень двойки.1...
Ланка30
16.07.2020 20:22
Напишите наименьшее число x, для которого истинно высказывание: НЕ(X 3)И(X 6) 2. Напишите наименьшее число x, для которого истинно высказывание: НЕ(X 5)И(Xчётное)? 3....
anton4rf4
30.03.2023 14:52
Объём монографииМонография, набранная на компьютере, содержит 2048 страниц, на каждой странице 48 строк, в каждой строке 72 символа. Для кодирования символов...
ЮкиНайи
23.06.2021 20:48
Дан фрагмент программы:a:=8;b:=-a+40;a:=b/a;write(a,b);Какие числа будут выведены на экран монитора...
AlinaZimina1
05.09.2021 13:42
Закончите вывод: «Если первое число меньше второго, то...
Вика12342001
20.09.2022 05:20
Какое стандартное приложение Windows в основном используют для создания своих HTML-страниц? MS Word Среда программирования html Блокнот Pascal...
Есения816
07.12.2022 02:34
Я делал Дз, понадобилось заполнить таблицу, как создать таблицу в ворд?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
const n=7;
begin
Writeln('Исходный массив:');
var a:=MatrRandom(n,n,-10,10); a.Println(6);
var q:=ReadInteger('q = ');
var m:=a.ElementsByRow.Where(x->x=q).Count;
if m>0 then writeln('YES') else writeln('NO');
end.
Пример:
Исходный массив:
0 -1 -10 7 5 5 5
-3 8 8 -8 4 10 0
-2 9 -1 -4 -10 -2 2
-9 6 10 -4 3 -5 4
-3 9 4 -6 8 10 -2
4 -1 -2 8 9 -8 -3
5 6 2 5 9 3 8
q = 9
YES