Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
alonbinyaminov1
10.06.2021 07:16 •
Информатика
Положительные элементы заменить на 1, а отрицательные на - 1
Показать ответ
Ответ:
ТАлександра
07.10.2020 06:34
Var a: array [1..30] of integer;
begin
for var i:=1 to 30 do
begin
a[i]:=random(-30,30);
end;
println(a);
for var i:=1 to 30 do
begin
if (a[i]>0) then
a[i]:=1
else
a[i]:=-1;
end;
print(a);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
AlyonaYarmak
17.09.2021 20:19
1.производится бросание симметричной четырехгранной пирамидки . какое количество информации мы получаем в зрительном сообщении о ее падении на одну из граней ? а)1бит б)2бита...
sharapoid
17.09.2021 20:19
1.за минимальную единицу измерения количества информации принят а)1бот б)1пиксель в)1 байт г)1 бит 2.вычислите , какое количество информации в битах содержится в 1 килобайте,1мегабайте...
itpediaigor
04.04.2020 04:04
с формулой в Excel!Як формула визначає кількість найбільший величин...
яМаруся26
08.07.2020 18:33
Текст занимает 0.75 Кбайт памяти компьютера. мощность алфавита равна 256 символов Сколько символов содержит этот текст?...
Х1ега1Х
06.06.2022 02:06
Считаете ли вы, что smm- проекты должны выполняться только на одной платформе или на нескольких платформах ? ...
gamergrisha1
15.09.2022 08:38
Почему при движении робота вдоль линии используется датчик цвета...
mrku
06.11.2022 22:07
Продемонструвати будову жорсткого диску за правильний ответ...
софья20054
09.03.2020 21:40
найти ошибку def test(): number = int(input( Enter an enteger : )) if number 0: positive() else: negative() def positive(): print( Positive ) def negative(): print( Negative...
dasha20015678
06.03.2020 22:50
Составьте блок схему и программу y = 2a + tg²(x+1), a-const...
sasacot
07.02.2022 18:40
Дана строка символов. 1)Определить Количество начинающихся и заканчивающихся на букву «о». слов. C++...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for var i:=1 to 30 do
begin
a[i]:=random(-30,30);
end;
println(a);
for var i:=1 to 30 do
begin
if (a[i]>0) then
a[i]:=1
else
a[i]:=-1;
end;
print(a);
end.