Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
olivka8
27.08.2021 19:05 •
Информатика
(pascal или delphi) в заданном массиве a(n) положительные элементы уменьшить вдвое, а отрицательные заменить на значения их индексов.
Показать ответ
Ответ:
пацанизподворотни
23.07.2020 18:26
Var a:array of real;
n,an:integer;
begin
randomize;
writeln('Введите размерность массива');
readln(n);
n:=n+1;
setlength(a,n);
for an:=1 to n-1 do
begin;
a[an]:=random(10);
if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;
write (a[an],',');
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
aiis171
25.02.2021 17:39
1.изобрази схему логического выражения f= - a v b. 2.составьте таблицу истинности: а. - а. в. f= - a v b...
ChocolateMilk1
05.08.2021 18:33
Для хранения растрового изображения размером 160 х 128 пикселей отвели 5 кбайт памяти. каково максимально возможное количество цветов в палитре изображения?...
слава499
10.09.2021 18:30
1. Заполните пробелы в следующих предложениях. Запись информации на различных носителях по установленным правилам называется... Если документ содержит только звуковую...
vabimGogolev
05.07.2020 02:20
Информатика 5) какова структура инструкции (предложите свой вариант)...
kuki10
09.09.2022 07:48
40 ! напешите скороговорки два предл. на шифровке : первая шифровка : а это цифра 1 , б это цифра 2 , в это цифра 3 и т.д. вторая шифровка : а это б , б это в , в это...
AlexGrehova
06.10.2022 09:35
Выделите те выражения, которые принимают значение False при выполнении условия «точка принадлежит заштрихованной области».1) х = 1.5 и y = 1.52) -2 x 2 и -3 y 23) x =...
милания5
27.03.2021 08:09
1. Разработать таблицу, содержащую следующие сведения о восьми абитуриентах университета: фамилия, оценка за экзамен по математике, оценка за экзамен по физике, сумма...
krayushkinaalina
27.03.2021 08:09
Запишите верные ответы 38 див 5...
Jimitapark8
16.11.2022 01:49
1. Как Пугачёв проявляет своё «оборотничество», двуличие? (7, 11 главы) 2. Почему Гринёв не присягнул Пугачёву после того, как тот его не казнил? (8 глава) 3. Почему...
юка28
26.02.2023 12:29
Определите длину волны при частоте 500гц если скорость распространения 330м/с...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
n,an:integer;
begin
randomize;
writeln('Введите размерность массива');
readln(n);
n:=n+1;
setlength(a,n);
for an:=1 to n-1 do
begin;
a[an]:=random(10);
if a[an]>0 then a[an]:=a[an]/2 else a[an]:=an;
write (a[an],',');
end;
end.