Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
yuliyamusatova1
20.06.2020 16:22 •
Информатика
Сформируйте массив из 10 случайных целых чисел на промежутке [-7,10] и увеличьте каждый элемент массива в 4
Показать ответ
Ответ:
Вано137
23.06.2020 20:10
Uses crt;
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(17)-7;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*4;
writeln(a[i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
hdbhbd
23.10.2020 10:25
Составьте программу, которая заполняет массив а [1..10] случайными числами в диапазоне от 10 до 40, затем меняет местами 4 и 7 элемент массива. это pascal, 9 класс...
ayvazyanloxq37n
28.11.2022 14:24
Кундылыкты тажырбенен эркономикага катысты уш мысал келтыр ...
agisheveevelina
21.04.2020 01:56
Пользовтель перенес папку c: /abc/2011/фото в папку лето расположенную в корне диска d^.укажите полный путь к файлу 125. jpg расположенному в папке фото...
alina0000000p
21.04.2020 01:56
Какова длительность звучания звуковой информации низкого качества объемом 1200 кб, режим моно?...
qqruzko
21.04.2020 01:56
Переведите числа: а) 101010 во 2 ст. из двоичной системы счисления в десятичную; б) 74в 10 ст.=? во 2 ст....
деш2
31.01.2021 06:13
Определите объем прямоугольного параллелепипеда по его сторонам нужна программа для паскаля...
марина1925
16.03.2020 14:55
Подсчитайте объем информации в одном из доступных вам словарей (орфографическом,толковом, и т....
ыссмиииии
08.03.2022 13:23
Необходимо выполнить на языке паскаль. в файле находится цепочка из символов, в которую могут входить заглавные буквы латинского алфавита a…z и десятичные цифры....
senazubik63kfkd
02.01.2021 14:02
Информатика л. босова, 5 класс, рабочая тетрадь №35 вам разрешено заменять в исходном слове одну букву на другую так, чтобы получившееся слово было существительным...
welouk
20.07.2022 23:04
Найти периметр прямоугольника на языке паскаль...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(17)-7;
writeln(a[i]);
end;
writeln;
for i:=1 to n do
begin
a[i]:=a[i]*4;
writeln(a[i]);
end;
end.