Вход
Регистрация
Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
.....больше.....
..меньше..
elena2213
31.01.2022 02:24 •
Информатика
Построить логичную схему для функции
👇
Увидеть ответ
Открыть все ответы
Ответ:
Deiselpro1
31.01.2022
#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
31.01.2022
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 оценок)
Это интересно:
Х
Хобби-и-рукоделие
09.09.2020
Как использовать объективы с байонетом M42 на цифровых фотоаппаратах Canon EOS...
П
Питомцы-и-животные
16.12.2021
Как завоевать доверие собаки: советы для новичков...
К
Кулинария-и-гостеприимство
04.02.2021
Как приготовить тыкву: от супа до печенья...
К
Компьютеры-и-электроника
13.05.2023
Как исправить проблемы с завершением работы Windows...
Х
Хобби-и-рукоделие
11.02.2021
Как выбрать апертуру объектива: все, что вам нужно знать...
О
Образование-и-коммуникации
21.09.2020
Как убедить человека рассказать свой секрет? Открываем профессиональные секреты психологии...
З
Здоровье
10.07.2021
Голубые глаза: миф или реальность?...
К
Компьютеры-и-электроника
04.07.2022
Как удалить историю поиска в iPod Touch: шаги по настройке конфиденциальности...
С
Стиль-и-уход-за-собой
07.05.2020
Правильный выбор парика: все, что вам нужно знать...
О
Образование-и-коммуникации
01.09.2020
Как нарисовать банан: подробная инструкция для начинающих...
Новые ответы от MOGZ: Информатика
Veteran2211
28.11.2022
С алгоритма робота чертёжник составить слова ШКОЛА, ТРУД, МАЙ и число 002200 (Размеры и начало координат, а также черчения не ограничены...
svensyea
05.11.2021
Написать на языке паскаль програму для ввода 2х чисел а1 и а2 и найти сумму а1+а НЕЖАЛКО...
мик271
02.12.2020
Сколько нулей в шестнадцатеричной записи десятичного числа 160...
акниет01
27.08.2020
Решить на python или c++ подільність суми для заданого натурального значення k знайдіть найменше натуральне число n, при якому сума 1 + 2 + 3 + + n ділиться на k....
maltsevaalbina2006
01.09.2021
Компьютер принял сообщение обьём которого больше 4-х килобайт какое утверждение верно а)4001 бит б)2^16 бит в)4047 байт г)4099 байт...
Panovamasha33
23.03.2022
Информативны ли для вас следующие сообщения: «сколько в слове гласных звуков, столько в слове и слогов» и «термин «мультимедиа» означает объединение текста, звука,...
egorjanov2200
09.02.2023
Уберите 1-2 буквы что бы получить другое слово волк- кобра-...
Ludmila28041985
09.02.2023
Подсчитать количество нечетных элементов в одномерном массиве а(18),заданным генератором случайных чисел на промежутке [-6; 17]...
Rоmаn844
09.02.2023
Дано натуральное число. определить произведение его цифр больших 7...
1337banana228
01.03.2021
Запишите в виде обыкновенной дроби а)0(18) б)0,0(24)...
MOGZ ответил
эссе-рассуждение на тему Казахстан-энергия будущего ...
составить предложения со словами радуешься и удивляешься...
7) Как ҳуппу называли бога солнца, который каждый день путешествует...
Напишите эссе объёмом 85-100 слов на тему Я автор удивительного...
(Очень ) диагональ правильной четырехугольной призмы равна d и...
разность двух положительных чисел 12 найдите эти числа если 1/3...
Решите задачу- за 10 секунд по проводнику проходит заряд 50кл...
1. Усі слова власне українські у рядку А древо, мислитель, єдність,...
(a+a-b\a+b-b):(2a+1/a2-b2+1)...
Напишите сочинение на английском языке на одну из тем темы которые...
Полный доступ к 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;
}