Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
naaaaaayli
03.11.2022 01:37 •
Информатика
Сформировать массив содержащий 15 элементов с датчика случайных чисел . получите новый массив каждый элемент которого равен удвоенному соответствующиму элементу исходного массива
Показать ответ
Ответ:
SuperSem2003
07.10.2020 10:50
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println
end.
Пример
28 -22 -43 -36 -20 -21 36 -26 48 25 -31 -29 8 -35 17
56 -44 -86 -72 -40 -42 72 -52 96 50 -62 -58 16 -70 34
0,0
(0 оценок)
Ответ:
stif432
07.10.2020 10:50
Const Sz = 100; // Размер массива
var
a,b: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do begin
a[i] := Random(100);
b[i]:=a[i]*2;
writeln('Элементы массива: ');
for i:=1 to N do
writeln(a[i],' ',b[i]);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
нан08
30.03.2021 13:27
N1) перевести десятичное число 73 в троичную систему счисления n2) перевести троичное число 222 в десятичную систему счисления n3) перевести шестнадцатеричное число авс в десятичную...
fun2345677904866
02.02.2022 07:42
Дана программа: Program Primer; Var M,result : real; Begin Writeln( Введите значения переменной M ); Write( M= ); Readln(M); Result := sqr((10+M)*10); Writeln ( sqr((10+M)*10) ,...
darina20034
17.05.2022 14:07
Ученику 8 класса требовалось написать алгоритм, который определяет, принадлежит ли число x заданному числовому отрезку (a, b). Он написал несколько вариантов условий. Какое из этих...
gdhdf
23.10.2022 03:17
Вспомните, почему начиная с определенной глубины в океане не встречаются растения. Будут ли они там расти, если их специально посадить? Обоснуйте свой...
sofia121324oyztor
23.10.2022 03:17
Какие природные сообщества морей и океанов вы знаете?...
fooorl
23.10.2022 03:17
Перечислите организмы, составляющие донное сообщество и сообщество кораллового рифа....
Женя02458
23.10.2022 03:17
Какие существа составляют сообщества поверхности воды и как они между собой связаны?...
tori0077
23.10.2022 03:17
Почему в степях, саваннах и пустынях мало деревьев?...
alex06062
23.10.2022 03:17
Почему влажный тропический лес – самое богатое видами природное сообщество?...
diana6k3
23.10.2022 03:17
Есть ли связь между окраской животных и средой обитания (природной зоной)? С чем это связано?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println;
var b:=a.Select(t->2*t).ToArray; b.Println
end.
Пример
28 -22 -43 -36 -20 -21 36 -26 48 25 -31 -29 8 -35 17
56 -44 -86 -72 -40 -42 72 -52 96 50 -62 -58 16 -70 34
var
a,b: array [1..Sz] of integer;
N: integer; // Количество элементов в массиве
i: integer;
begin
N := 20;
for i:=1 to N do begin
a[i] := Random(100);
b[i]:=a[i]*2;
writeln('Элементы массива: ');
for i:=1 to N do
writeln(a[i],' ',b[i]);
end.