Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
kimd1
07.03.2022 21:14 •
Информатика
Сформировать массив содержащий 15 элементов с датчика случайных чисел . получите новый массив каждый элемент которого равен удвоенному соответствующиму элементу исходного массива
Показать ответ
Ответ:
RSL1
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 оценок)
Ответ:
sigaretta
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 оценок)
Популярные вопросы: Информатика
Антон2004111
22.02.2021 04:00
Укажите команды, относящиеся к разветвляющимся алгоритмам (несколько вариантов ответа) * Вариант 1 Вариант 2 Вариант 3 Вариант 4 Вариант 5 (Картинки по порядку как надо)...
DariaRain7
18.02.2021 10:55
Данные, записанные в компонент «Edit», будут обработаны с следующих функций. Установите соответствие...
раовт
07.09.2021 03:15
Задайте путём перечисления всех элементов множество А двузначных чисел, кратных 10, и множество В двузначных чисел, кратных 15. Запишите пересечение и объединение этих множеств....
LinaCat123456789
10.01.2021 09:06
Решите информатику тема алгоритм...
ianna9227p00tfn
07.03.2022 03:54
Число электронов на валентном слое атомов щелочных металлов равно...
liza4608
07.03.2022 03:54
Шартты бағыныңқылы сабақтас құрмалас сөйлем мысалдар...
KaranVahi21
07.03.2022 03:54
Какое лицо число и падеж у местоимения к вам...
Karjal
07.03.2022 03:54
Написать сочинение по теме ревизор (сценка взяток) составьте текст, в котором о происходящем рассказывает всеведущий автор.здесь должно быть описание обстановки, портреты героев,...
supercrud
07.03.2022 03:54
Что такое декларация на украинском?...
VovaUtyuzh
07.03.2022 03:54
Почему семена разных растений высевают в разные сроки?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.