Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
polina198678
27.11.2020 05:32 •
Информатика
Заполнить массив случайными числами от 1 до 30. заменить все элементы массива их удвоенными значениями
Показать ответ
Ответ:
sergkis220799
26.08.2020 19:32
Var i,n:integer;
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(30);
write(a[i]:4,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*2;
write(a[i]:4,' ');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
daulbaevazanel123
21.12.2020 14:21
Доделать программу ! (именно доделать! ну если что-то у меня не правильно исправить! ) : в соревнованиях по бегу участвуют 100 человек. чтобы выявить лучшего, организуется 5 забегов...
nocitronum
25.08.2021 13:24
Какие разделы содержит электронный почтовый ящик?...
Vernаrd
24.06.2020 15:05
Составить программу, спрашивающую у ученика его отметку по информатике и реагирующую на нее подходящим текстом 1-4 - кошмар! 5-6 - неважно. 7-8 - неплохо . 9-10 - молодец!...
Fleepee
10.11.2020 08:25
На столе лежала пачка тетрадей.сначала взяли 30 процентов тетрадей а потом 75 процентов оставшихся тетрадей.после этого осталось 14 тетрадей на столе.сколько тетрадей было в пачке...
lllaasaw
10.11.2020 08:25
Из чисел 101,158,124,226,812,140,186 выбери и запиши те числа, которые: 1) больше 125 и меньше 185- 2) больше 125 или меньше 185-...
РешОрше
10.11.2020 08:25
Почему дети и подростки осваивают новую технику быстрее,чем их родители?...
Molly11111
10.11.2020 08:25
Африканың климаты климаттық белдеулеріне сипаттама...
Molodoy186
10.11.2020 08:25
30 . переведите грамотно — if pete checks his work, he will not have many mistakes. — you don’t take english seriously, jane. if you did exercises regularly, you would pass the test....
GoldenLynx1999
10.11.2020 08:25
81)почему врожденные рефлексы называют безусловнвми,а приобретенные- условными? продемонстрируйте условные и безусловные рефлексы,объединившись в пары...
Тимур2020
10.11.2020 08:25
Приближается весна.снег уже почти растаял.остался он только на северной стороне. а на южной уже пробиваются первые весенние цветы.воробьи весело чирикают .они рады тёплым , погожим...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..1000] of integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
begin
a[i]:=Random(30);
write(a[i]:4,' ');
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*2;
write(a[i]:4,' ');
end;
end.