tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дан двумерный массив. определить,
Дан двумерный массив. определить, есть ли среди элементов массива данное число q. написать программу, . заранее : )
Лиро1
3 19.09.2019 13:10
0
Ответы
MAN1337228
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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
newsergy81
22.07.2019 13:50
Написать программный код к : определите и выведите на экран сумму всех нечётных двузначных чисел...
baseke2018
17.04.2020 08:48
Укажи минимальный объем памяти (в битах), достаточный для хранения любого растрового изображения размером 28*28 пикселя, если известно, что в изображении используется...
arturk13
19.02.2020 13:16
Python Возьмем произвольное слово и проделаем с ним следующую операцию: поменяем местами его первую согласную букву с последней согласной буквой, вторую согласную...
Андрей11111111111151
19.02.2020 13:17
В мониторе установлен графический режим с глубиной цвета 24 бит. Разрешающая экрана 600х400. Вычислить объем видеопамяти (Кбайт), необходимый для реализации данной...
polinasenotova
19.02.2020 13:20
Напишите прогу для решения этой систему ИКТ...
juljadob54
19.02.2020 13:27
Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. Пример: Введите число? 311 Наибольшая цифра:...
алка689338
19.02.2020 13:27
Скопируйте этот текст в Word Document с таблицами заголовком и т.д не пытайтесь туда вставить данную фотку......
Ккамв
19.02.2020 13:31
Придумайте лёгкий рисунок (без кругов) который можно сделать в pascal ABC...
slava285
19.02.2020 13:33
HELP НУЖНА С ИНФОРМАТИКОЙ...
daniyabekzhan1
19.02.2020 13:40
Составить алгоритм который вычеслит значение z в зависимости от а...
Популярные вопросы
Пекарня в первый день израсходовала 4,35 т муки, во второй — на...
2
Что нужно чтобы вкатить бочки по наклонной плоскости...
2
Господи кто нибудь момоги те у меня контроша...
1
Расположите приведенные ниже вещества в ряд по усилению кислотных...
3
-1/4x^2-2x-3=0 разложить на линейные множители...
1
за диктант по русскому языку оценку 5 получили 9 учащихся пятого...
3
твір-есе за темою що змінилося, на вашу думку, в історії людства...
3
Разложи на множители Выбери правильный ответ...
1
Верно ли следующее суждение? В публичном праве одной из сторон...
2
решить очень нужноF(x)=sin 1/xF(x)=2lnxF(x)= earctg x3...
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