Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
katy247
23.12.2020 18:25 •
Информатика
Дан двумерный массив. определить, есть ли среди элементов массива данное число q. написать программу, . заранее : )
Ответ:
Mishanaxsar
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 оценок)
Популярные вопросы: Информатика
ЯнаШемен
02.01.2021 06:16
Дан целочисленный массив, заданный датчиком случайных чисел в интервале от -10 до 10. Изменить знак у элементов массива на противоположные....
nozdracheva95
10.01.2023 05:53
Каждый сайт и каждая страница сайта не имеет а свой адрес б свое название в свое содержание г свое значение...
Sofia1111111111811
10.01.2023 05:53
Перевести число (111100111) из двоичной системы счисления в восьмеричную, шестнадцатеричную системы счисления, выполнить проверку в десятичной системе счисления...
линаким1
28.06.2022 22:54
Постройте таблицы истинности для логических выражений: 1) не в & а + не а импликация в; 2) а & не с или (не а & в)....
Kira1574
20.04.2020 19:40
Найти периметр четырехугольника , если длины его сторон a,b,c,g, - вводятся с клавиатуры. напишите программу на паскале....
regina290402
11.09.2020 17:16
Заменить все элементы,попадающий в интервал[a,b] нулем. Решить, используя ДВУМЕРНЫЙ массив. Паскаль. Составьте код работающей программы...
Карина162005
14.02.2021 08:53
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 23 символов в этой кодировке....
nastasyasaenko
28.02.2023 17:46
Определите значение b после выполнения алгоритма: а:= 12 b:= 8 a:= a + a*b b:= a/3...
GNOMIK2278
20.09.2020 19:24
С клавиатуры вводится рост 20 учащихся 8 класса. Определить средний рост учащихся 8 класса....
vlad499999
08.03.2023 18:50
Какие из предложенных структур в блок-схеме содержат блок выбора? Следование Цикл ДО Цикл ПОКА Ветвление...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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