Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
гугуляга
09.06.2020 19:33 •
Информатика
Написать программу: нечетным элементам одномерного массива присвоить значения квадратов индексов.
Показать ответ
Ответ:
Qwan
05.10.2020 19:53
//PascalABC.Net 3.2
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
partybally
30.11.2022 05:29
Решите заданеи на карточке...
Лера568687
13.09.2022 17:58
2 задачи на сайте acmp НА PASCALABC....
NotLikeThis
17.12.2022 22:38
Каково наибольшее целое число х (6, 7 , 8 или 9 ) , при котором предикат (70(70 (х+1)*(х+1)) обращается в истинное высказывание ?...
ilugladyshev
23.09.2022 22:15
Рассчитать надбавку к зарплате за стаж, если стаж от 2 до 5 лет, надбавка составляет 2%, если стаж от 5 до 10 лет - 5%. Ввести с клавиатуры зар- плату и стаж, вывести...
Feraaa2108
04.02.2020 02:17
Дед Мороз попросил Снегурочку посчитать количество писем, полученных от детей в этом году. Снегурочка сказала, что количество писем равно наименьшему четырёхзначному...
vvickina
17.12.2021 07:50
1992 1415126Var Nazva. String:R, Period: Real,ConstPi = 3.1415-226;begin;Nazva := Editi.Text;R = Edit2.Text;V = Edit3. Text,Period := 2 *Pi R 7. V-24Edit 4Text :=...
русскийязык150
24.09.2020 11:41
На какие дисциплины опирается робототехника? * А)Электроника, механика, информатика, радиотехника и электротехника Б)Медицина, механика, электромеханика, электроника...
Никита27031
09.01.2020 22:58
Графический редактор это ...
Nemo24
16.12.2021 13:49
Лодка плывет из пункта А в пункт Б и обратно. V лодки скорость, расстояние между точками S и U скорость пользователя. T общее время движения лодки напишите программу...
КсюшаКотW
09.01.2023 15:15
Как организуется мониторинг товарных потоков через Интернет? Создать сообщение по данной теме (подробно)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var a:=ReadArrInteger ('Вводите массив: ', readinteger('Кол-во элементов: '));
for var i:=0 to length(a)-1 do if a[i].isodd then a[i]:=sqr(i+1);
a.Println;
a.Println;
end.