Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
золотое5руно
04.07.2020 03:01 •
Информатика
Даны 2 массива a(n) и d(n), где n - заданное натуральное число. объединить их в один c(n*2). массив c распечатать. надо делать в паскале.
Ответ:
Fernier
03.10.2020 11:09
// PascalABC.NET 3.1, сборка 1201 от 18.03.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50);
Write('A: '); a.Println;
var d:=ArrRandom(n,-50,50);
Write('D: '); d.Println;
var c:=a.Concat(d).ToArray;
Write('C: '); c.Println;
end.
Тестовое решение:
n= 7
A: 2 -27 43 -43 -29 -9 33
D: -5 -34 49 -34 -32 -4 10
C: 2 -27 43 -43 -29 -9 33 -5 -34 49 -34 -32 -4 10
0,0
(0 оценок)
Популярные вопросы: Информатика
НиколайСПБ
18.05.2023 05:38
Написать программу для вычисления модуля |a|=а, где а целое число...
katya2562
18.05.2023 05:38
Написать программу а с++ ,которая будет выводить квадраты целых чисел от 1 до 9...
Auyrey03
29.01.2022 03:43
Сформировать второй массив из положительных элементов первого массива. Pascal...
zexer9p07xi1
11.05.2021 22:04
Нужно заполнить пропуски....
romankrohov2005
30.05.2020 09:35
Что такое интерфейс текстового редактора Ms Word...
Саша22877324516
09.03.2022 19:51
Слово Електрон по грецьких означає...
mironova0
09.11.2020 21:03
Какая из пар: х = –1 и у = 3; х = –8 и у = 6 является решением уравнения: х + у – 2 = 0 ?...
VikaS11111
08.03.2023 20:25
Подъемный кран за 7 год пиднимае 3000т будивельних материалив на высоту 10 м.Яка потужнисть двыгуна крана,якщо ККД доривнюе 60%?...
rusalochka1999p08s2t
14.04.2021 07:00
Вычислите массовые доли каждого элемента в веществе Rb2SO4...
Ната70
21.01.2022 23:08
Які з тварин мають наскрізну травну систему...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50);
Write('A: '); a.Println;
var d:=ArrRandom(n,-50,50);
Write('D: '); d.Println;
var c:=a.Concat(d).ToArray;
Write('C: '); c.Println;
end.
Тестовое решение:
n= 7
A: 2 -27 43 -43 -29 -9 33
D: -5 -34 49 -34 -32 -4 10
C: 2 -27 43 -43 -29 -9 33 -5 -34 49 -34 -32 -4 10