Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
MargoSimka
22.01.2020 22:07 •
Информатика
7. Яка властивість компонента Memo містить у вигляді масиву список наявних
👇
Увидеть ответ
Открыть все ответы
Ответ:
Deiselpro1
22.01.2020
#include<iostream>
#include<cstdlib>
#include<ctime>
#define abs(x) ((x)<0 ? -(x) : (x))
using namespace std;
int main()
{
srand(time(0));
int n, k, m = 0;
cout << "n = ", cin >> n;
int A[n], B[n];
cout <<"A("<<n<<"):";
for(int i = 0; i < n; i++)
cout <<" "<< (A[i] = rand() % (n*2+1) -n);
cout << "\nk = ", cin >> k;
for(int i = 0; i < n; i++)
if (abs(A[i]) % 10 == k) B[m++] = A[i];
cout <<"B("<<m<<"):";
for(int i = 0; i < m; i++)
cout <<" "<< B[i];
return 0;
}
4,6
(53 оценок)
Ответ:
vfvf2304
22.01.2020
Var A: array [1..10] of integer; i,b: integer; begin for i:=1 to 10 do readln(A[i]); for i:=1 to 10 do begin if A[i]=5 then writeln(i,' Строка'); end; end.
4,4
(16 оценок)
Это интересно:
С
Стиль-и-уход-за-собой
07.05.2020
Правильный выбор парика: все, что вам нужно знать...
О
Образование-и-коммуникации
01.09.2020
Как нарисовать банан: подробная инструкция для начинающих...
С
Семейная-жизнь
09.02.2020
Все, что вам нужно знать о последних неделях беременности...
З
Здоровье
05.05.2023
Как правильно лечить разрыв кисты яичника?...
О
Образование-и-коммуникации
18.04.2023
Как заставить коллегу перестать указывать вам, как делать вашу работу: советы по установлению границ, коммуникации и уверенности в себе...
О
Образование-и-коммуникации
23.07.2020
Как определить медиану множества: ключевые понятия и методы расчёта...
Д
Дом-и-сад
17.04.2023
Как правильно покрасить древесину: советы от профессионалов...
П
Путешествия
23.02.2023
Как развить туристический бизнес: советы от экспертов...
О
Образование-и-коммуникации
21.01.2020
10 способов усовершенствовать свой этикет в электронной почте...
П
Питомцы-и-животные
10.09.2021
Как разводить лягушек: советы для начинающих...
Новые ответы от MOGZ: Информатика
ilyapleshakov29
23.02.2022
Воспользовавшись моделью, построенной в примере 1, определите, за сколько часов бассейн может быть наполнен через первую трубу, если через вторую он заполняется за...
millykot2003
23.02.2022
Пример таблицы,с которой вы познакомились в школе?...
сымбатым
23.02.2022
Найти среднее арифметическое всех чисел от 100 до 900. в цикле с параметром...
marina8marta
31.03.2020
Программирование C# Forms Дано приложение, в первой строке мы пишем любое слово, а во второй строке мы пишем какие-нибудь буквы и на выводе получается подсчёт сколько...
Leshik1997
24.01.2021
Умоляю решите задачи рл братски НУЖНО РЕШЕНИЕ...
fftoes
15.04.2023
Выбери верные ответы;Якласс;7 класс информатика...
Света0475
27.01.2023
Ребят мне с информатикой я вообще её не понимаю даю за ответ ...
ritaazarenko5
15.07.2020
сделать Домашнее задание 1.Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов;...
vipamalia03
27.11.2022
Чтобы вставить рисунок в текстовый документ надо выполнить последовательность действий (алгоритм). Рассположите шаги алгоритма в правильном порядке. 1.На вкладке Вставка...
amiranur1
01.07.2020
В чем состоят различия в технологии распознавания текста при использовании растрового и векторного методов? Краткий ответ....
MOGZ ответил
Очем басня крылова фортуна и нищий ? анализ басни...
Послушайте интересные диалоги и запишите,желательно 2-3 диалога)заранее...
Написать цикл do while в котором к заданному числу прибавляется...
Написать письмо-заявление (около 120-180 слов), объясняющее, почему...
Расстояние между пластинами плоского конденсатора равно 2мм, напряжение...
Любой предмет который получает электрический заряд...
Краткий отзыв чем мне понравилась алиса в стране чудес...
Свежеосажденный ферум (2) гидроксид постепенно меняет свой цвет...
Решительно уравнения 3х=5 11х=14 6х=5...
Перевод. не могу понять один момент. remember when we came back...
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ
Оформи подписку
О НАС
О нас
Блог
Условия пользования
Авторское право
Политика конфиденциальности
Предпочтения cookie-файлов
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
App
Вход
Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ
#include<cstdlib>
#include<ctime>
#define abs(x) ((x)<0 ? -(x) : (x))
using namespace std;
int main()
{
srand(time(0));
int n, k, m = 0;
cout << "n = ", cin >> n;
int A[n], B[n];
cout <<"A("<<n<<"):";
for(int i = 0; i < n; i++)
cout <<" "<< (A[i] = rand() % (n*2+1) -n);
cout << "\nk = ", cin >> k;
for(int i = 0; i < n; i++)
if (abs(A[i]) % 10 == k) B[m++] = A[i];
cout <<"B("<<m<<"):";
for(int i = 0; i < m; i++)
cout <<" "<< B[i];
return 0;
}