Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
eriksan1
05.06.2022 07:31 •
Информатика
Составьте программу заполнения массива a[1..10] следующими числами: индекс элемента 1 2 3 4 5 6 7 8 9 10 значение элемента 1 6 3 12 5 18 7 24 9 30
Показать ответ
Ответ:
Nimfa48
04.10.2020 09:20
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
if i mod 2 = 1
then a[i]:=i else a[i]:=3*i;
for i:=1 to n do write(a[i],' ');
end.
Результат:
1 6 3 12 5 18 7 24 9 30
0,0
(0 оценок)
Популярные вопросы: Информатика
katenkaklimcuk
24.12.2020 13:34
3. Задачи по теме «Паскаль. Линейный вычислительный процесс». Составить блок-схему и программу для вычисления: 109. Поголовье коров, молодняка и бычков составляет соответственно...
meizum2luba
17.03.2020 01:41
Приведите пример линейного алгоритма, с которым вы сталкиваетесь в повседневной жизни. -...
какчитаетсяэтосказка
26.10.2020 15:01
Продолжите предложение: Антивирусные компании давно начали выпускать версии своих программ для защиты мобильных телефонов, но самой лучшей защитой всегда была: 1. Установка...
zebra60
02.04.2021 11:02
Какой результат будет выведен? int main() { int a = 10; int b = 15; int res; res = a / b; printf( %d , res); return 0; }...
nikita54wwe
14.09.2021 22:27
Заранее : ) разложить на множители: a²m-a²n-9m+9n....
timev01
14.09.2021 22:27
Ялюблю наш кабинет биологии, оформленный необычно, со вкусом назовите образования слова необычно...
sini1
14.09.2021 22:27
Основные систематические группы рыб : особенности строения и представители...
AlekseyBunin007
14.09.2021 22:27
Из системы уравнений: {4x+y=5 x-y=3 {4x+4y=8 2x+2y=4 {x-y=3 3x-3y=9 выбери систему уравнений: а)имеющую одно решение б) не имеющую ни одного решения в) имеющую бесконечно...
Катикини
14.09.2021 22:27
Постройте на координатной плоскости отрезок сd, где с (1; 2), d(-2; -1). постройте отрезок , симметричный отрезку сd относительно оси абсцисс, и определите координаты...
Элайза2004
14.09.2021 22:27
Құрышшы, күрішші, күрішіне деген сөздерді сөз құрамына талдау...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
if i mod 2 = 1
then a[i]:=i else a[i]:=3*i;
for i:=1 to n do write(a[i],' ');
end.
Результат:
1 6 3 12 5 18 7 24 9 30