Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
romakum24
21.05.2022 11:13 •
Информатика
Задан массив a(m).заменить отрицательные элементы массива a, расположенные до максимального элемента, на нули.
Показать ответ
Ответ:
nikbudokay02
31.07.2020 20:29
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
for var i:=0 to a.IndexMax-1 do
if a[i]<0 then a[i]:=0;
a.Println
end.
Тестовое решение:
n= 15
-35 4 87 60 -93 -23 -95 -24 -19 -52 10 91 -53 -67 -1
0 4 87 60 0 0 0 0 0 0 10 91 -53 -67 -1
0,0
(0 оценок)
Популярные вопросы: Информатика
andrey100573p018xj
15.12.2022 06:41
у исполнителя Омега две команды, которым присвоены номера: 1. вычти b2. раздели на 2(b неизвестное натуральное число.) Выполняя первую из них, Омега уменьшает число на экране на ь,...
gg228
04.03.2021 05:12
Підсумковий тест на тему «Програмування мовою ТурбоПаскаль» 1. Коментарій до тексту програми включається в: a) В квадратні дужки b) В круглі дужки c) Фігурні дужки 2. Для запису оператора...
Ульяна3330
16.06.2020 18:15
Работа по созданию рисунков из частей. 15 букв...
gamer2280
14.07.2021 06:50
Как изменить количество документов в списке, предназначенным для их быстрого открытия...
Pahamoseuv
16.02.2023 11:27
A=int(input()) b=int(input()) c= b b=5 print (a*b+c) вводим в программу 2 3...
EgorT222
20.10.2020 14:53
На языке PYTHON Андрей изучает социальные сети и пытается определить скрытые атрибуты пользователей по их друзьям. Поскольку Андрей - профессиональный программист, то он хочет протестировать...
nemcevakata401
04.06.2021 10:33
Начальнику производственного отдела и необходимо распределить премию в сумме 500 $ между сотрудниками отдела пропорционально их должностным . список сотрудников и их оклады представлены...
SofiaAva
24.12.2020 21:40
Напишите программу, в которой даны три целых числа. Если их сумма является нечетным числом, вывести ее и сообщение «Задача решена», в противном случае – «Нет решения»....
AlexFox144
30.11.2022 02:04
Поставьте запятые ! 16. дело не в умилении перед твоим объектом ( 17. видимо они уже предвидели скорые перемены в судьбе пашутинского лесничего ( 18. он попытался изъяснить товарищу...
bdoyan1994
30.11.2022 02:04
Краствору сульфата меди массой 80 г и массовой долей 10 % добавили раствор щелочи гидроксид натрия, найти массу осадка. заранее...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
for var i:=0 to a.IndexMax-1 do
if a[i]<0 then a[i]:=0;
a.Println
end.
Тестовое решение:
n= 15
-35 4 87 60 -93 -23 -95 -24 -19 -52 10 91 -53 -67 -1
0 4 87 60 0 0 0 0 0 0 10 91 -53 -67 -1