Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
teylor3
15.11.2021 16:29 •
Информатика
Кр по инфе дан массив из 10 случайных чисел заданым на интервали [-10; 10] умножить положительные элементы на -2 , и ввести массив на экран
Показать ответ
Ответ:
57862327685
25.08.2020 22:54
Var
i:integer;
a:array [1..10] of integer;
begin
for i:=1 to 10 do begin
a [i]:=Random (-10,10);
end;
for i:=1 to 10 do begin
if (a [i] > 0) then
a [i]:=a [i]*2;
end;
write('Полученный массив: ');
for i:=1 to 10 do begin
write (' ');
write (a [i]);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Руслик111111111
03.04.2022 05:39
Статья, набранная на компьютере, содержит 64 страницы,на каждой странице 40 строк, в каждой строке 64 символа. определите размер статьи в кодировке кои-8 , в которой...
ForaN777
22.03.2021 03:30
5. определите маску для имен группы файлов: file.doc, ddg.dll, drug.d, forma.doc. в каталоге находятся пять файлов: fort.docx ford.docx lord.doc orsk.dat port.doc...
driftsmuk1
22.03.2021 03:30
Футбольний м яч коштує 65 грн. отримати всі можливі варіанти оплати,якщо у покупця є 5,10 і 20 гривневі купюри. підрахувати кількість варіантів...
PetryxaMakvin
22.03.2021 03:30
Написать программу в паскале для решения неравенства bx+c 0...
ekozhushkova
19.05.2020 10:23
Сколько времени потребуется для ввода в память компьютера текста на 40 страницах с сканера и программы abbyy finereader, если известно, что на сканирование одной...
lera5471
16.01.2021 16:13
решить Python Петя, Катя и Сережа делают из бумаги журавликов. Вместе они сделали S журавликов. Сколько журавликов сделал каждый ребенок, если известно, что Петя...
ответпж739
04.01.2021 11:51
Скорость передачи файла по сети Интернет равна 120 кбит/сек. передача файла через данное соединение заняла 6 секунд.Определите размер файла. (Решение обязательно)...
Ханоглан122
12.04.2021 00:06
Постройте цикл с роботом, который по вторникам моет посуду, а по четвергам выгуливает собаку...
isa2221
04.02.2023 02:43
Задание 3. Какие целые числа предшествуют числам 1. 11012 2. 716 3. 1013 Задание 4. Записать в развернутом виде 1. 110210 2. 7А16 3. 1012 Задание 5. Перевести числа...
yarikvasil
16.01.2020 13:47
Гриша любит сериалы. Особенно ему нравятся те сериалы, в которых в любой момент можно узнать, на какой по счету серии он сейчас находится и скольков целом серий имеется...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
a:array [1..10] of integer;
begin
for i:=1 to 10 do begin
a [i]:=Random (-10,10);
end;
for i:=1 to 10 do begin
if (a [i] > 0) then
a [i]:=a [i]*2;
end;
write('Полученный массив: ');
for i:=1 to 10 do begin
write (' ');
write (a [i]);
end;
end.