Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
fasefasefaceface
02.08.2022 02:27 •
Информатика
Задан массив a(m).заменить отрицательные элементы массива a, расположенные до максимального элемента, на нули.
Ответ:
ilyashamonin
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 оценок)
Популярные вопросы: Информатика
Slavkamyroslavka
24.10.2022 15:16
2. система преобразования текста для обеспечения секрет- ности передаваемой информации. 3. слово, которое использовалось в давние времена вместо слова «ішифрование...
123fafafartgd
17.02.2020 06:30
Программу на языке паскаль через boolean для решения следущей задаси: определить, имеется ли среди чисел a,b,c хотя бы одна пара взаимно противоположных чисел....
annamacsimava08
01.06.2021 20:29
Имеются три числа: 43, 54 и 130. Выберите из них два таким образом, чтобы результат поразрядной операции И (and) между этими числами был максимальным. В качестве ответа...
Клита
14.04.2022 02:25
Имеются 3 высказывания: А = {Число при записи в пятеричной системе счисления заканчивается на 1} B = {Число при записи в троичной системе счисления оканчивается на 1}...
natalichexova
26.09.2022 15:10
Исполнитель Кузнечик передвигается прыжками по координатной сетке. Система команд очень простая: одна команда движения Прыжок и одна структурная команда Повторить. Прыжок...
milanasadykovaMilok
01.07.2021 18:18
Иконки для игры Поступи в Политех! представляют собой точечные рисунки размером 256 на 256 пикселей. Объём одной иконки - 48 Кбайт. Определите максимальное возможное...
Здохненко0403
21.05.2020 04:11
Временный пароль для входа в тестирующую систему строится по следующему алгоритму: 1. Случайным образом выбирается одна из букв A, B, C, D, E, F. 2. К букве приписывается...
haikyuu24
08.09.2022 10:05
Заполните массив A первыми N натуральными числами, начиная с X (ввести X с клавиатуры) в обратном порядке (начиная с конца массива). Написать программу...
samsunguser
10.09.2022 14:27
Составить алгоритм для решения задачи: подсчитать значение выражения Y=78-24C на промежутке от 10 до 20?в кумире...
viklya30
31.10.2022 07:27
Термин сөздерді тап (2ответа) А) аммиак В) зілтемір С) күрке универсал қазақша баламасын табыңыз. (1ответ) А) жанашыр в) әмбебап с) бапталған НАДО...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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