Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
ushanoval
23.06.2020 13:47 •
Информатика
Даны 2 массива a(n) и d(n), где n - заданное натуральное число. объединить их в один c(n*2). массив c распечатать. надо делать в паскале.
Ответ:
marina2355
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 оценок)
Популярные вопросы: Информатика
katiaefimova
24.12.2020 20:01
Миша напечатал реферат, состоящий из 3 страниц, на каждой странице 70 строк по 60 символов в каждой. Один символ текста занимает 8 бит. Подсчитайте, какой объем информации...
sargsyana524
05.09.2021 04:42
Задача на питоне не могу решить...
Полинка8769532578
01.02.2023 00:20
Ть, будь ласка, написати мовою с++! термі! василь збирається на туристичний зліт учнів своєї школи. у своєму класі він був назначений відповідальним за палатки. у себе...
kosenkoanton72
13.03.2020 13:04
Переведите числа из 2-ой с/с в 10-ую с/с: 1. 00101110 2. 100000111 3. 11001011 4. 000111011 5. 1011001011 6. 110011001011 7. 110101 8. 100111 9. 1101100 10. 1011101 11....
НастёнышЬ14
22.11.2022 20:42
Нужно всё с решением. № информационное сообщение объёмом 2.5 кбайт передаётся со скоростью 2560 бит/мин. за сколько минут будет передано данное сообщение? № средняя скорость...
Умка2804
22.11.2022 20:42
Составьте в некотором году на участке 100 гектар средняя урожайность составляла 20ц.. после этого площадь увеличивается на 5%, а урожайность на 2%. определите в каком году...
ebanat3
22.11.2022 20:42
Придумай рассказ про опоздавшего школьника...
gaydukov130
14.02.2023 14:47
Составить блок-схему для программы! program abc1; var k,i: integer; h,a,b: real; function f1(x: real): real; begin f1: =sin(x)/cos(x); end; begin write ( введите нижнюю...
тимур615
02.03.2023 17:24
Расставьте в хронологическом порядке появления в локальные цивилизации: западная арабская китайская античная египетская...
СэмТV
22.01.2023 00:29
Скажите 1. 3(x+3)-3(4-×)-×-3=? 2. 3(×+5)-(4-×)-(1+3)×-3=? 3. 2(×+4)-3(2-×)-×-4=? 4. ×+1-5(2-×)-(5+1)×-5=? 5. ×+3-(2-×)-×-4=? 6. 4(×+3)-(5-×)-×-4=? 7. 3(×+3)-4(1-×)-(4+3)×-1=?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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