Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
Trolello
16.06.2021 17:56 •
Информатика
Даны натуральное число n,действительные числа .в последовательности все отрицательные члены увеличить на 0,5 а все неотрицательные заменить на 0,1.
Показать ответ
Ответ:
Nelai54
05.07.2020 12:00
Program chik;
var n,i:integer;
a:array[1..1000]of real;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then a[i]:=a[i]+0.5 else a[i]:=0.1;
end;
for i:=1 to n do
write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
haydarakyol1986
21.08.2021 08:43
Мать спрашивает свою матушку ( а мою бабушку ): «Где Катеринушка?» ошибки оформления...
Hskke
24.05.2022 22:11
Тұжырымдамалар ИӘ ЖОҚ Блок-сызба - алгоритмді жазудың графиктік тәсілі Адам, компьютер, автомат – алгоритм орындаушысы бола алмайды. Компьютерге түсінікті тілде жазылған...
360Polina360
24.11.2021 16:30
4)Определите результат работы функции ЗАМЕНИТЬ ( HAYOT ;5; 1; LIM SENDA ), ЗАМЕНИТЬ ( NIKOTIN-ZAHARDIR 2,6 ; ARKOTIK )6)Вычислите функцию y=1/4 x+100-25 в интервале...
Dvoecnik
09.09.2021 23:34
Рекурсивный перевод Напишите рекурсивную процедуру для перевода десятичного числа в P-ичную систему счисления. В данной задаче запрещено использовать циклы и массивы....
Олег4311
24.04.2021 15:16
ответьте на один вопрос а) Компьютерные инструменты создания текстовых документов...
кит217
20.06.2022 16:59
Система счисления решить ....
алиса768
05.06.2022 10:20
1 как изменится цена некоторого товара, если сначала её увеличить на 25%, а затем уменьшить на 25%? 2 клиент хочет выяснить, какие условия вклада в банк выгоднее...
ninachka1977
11.05.2022 09:14
студентам, успешно сдавшим сессию (без 3) начисляется стипендия в размере 750 руб., студентам-отличникам – 1000 руб.построить автоматизированную ведомость начисления...
katerinkakotoysmyf
05.10.2021 18:59
Доступ к файлу находящемуся на сервере http.txt, осуществляется по протоколу ftp. в таблице фрагмента адреса файла закодированы буквами от а до ж. запишите последовательность...
Yuska11
22.03.2022 23:10
Составьте программу, которая вводит с клавиатуры два числа и выводит их сумму, разность, произведение и частное....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var n,i:integer;
a:array[1..1000]of real;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then a[i]:=a[i]+0.5 else a[i]:=0.1;
end;
for i:=1 to n do
write(a[i],' ');
end.