Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
тогжан22
14.04.2022 10:52 •
Информатика
Кр по инфе дан массив из 10 случайных чисел заданым на интервали [-10; 10] умножить положительные элементы на -2 , и ввести массив на экран
Показать ответ
Ответ:
zhludovaanasta
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 оценок)
Популярные вопросы: Информатика
4moebanoe
19.02.2023 09:56
Решить,завтра на контрольную,от этого зависит четвертная.pascal...
ludarudenko98
24.08.2020 08:17
Введите текст программы numbers_2_10 из раздела 2,1...
Каримончик
25.12.2022 16:40
Тема : одномерный массив 1)составить текст программы 2)нарисовать блок схему дан массив из 15 чисел.определить номер максимального элемента в массиве,а также количество отрицательных...
NikoYuqa1
10.04.2020 19:56
Написать программу вычисления выражения (3-х)(6-х)(9--х), где х-натуральное число....
annareain252
22.10.2020 22:27
Определите что происходит в результате этой программы: ...
rockmus
20.02.2023 09:38
Информацию, предназначенную для обработки на компьютере и представленную в виде двоичного кода принято...
Kasha09
15.03.2022 17:13
Сколько времени в минутах затратив школьник на дорогу из школы до стадиона если известна длина этого расстояния и средняя скорость движения школьников написать программу которая...
Джерьяна
11.09.2021 02:16
Рассчитайте объем видеопамяти необходимой для хранения графического изображения занимающего весь экран монитора с разрешением 1280 на 1024 если 1 пиксель кодируется 2 байтами...
Snomeli
29.12.2021 06:38
7класс найти стандартный набор команд pascal...
GucciGang007
15.04.2023 08:01
Посогите , фото будет через минуту...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.