Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
какая8разница
07.02.2023 04:12 •
Информатика
6. заполните одномерный массив из n элементов следующим образом: номера элементов массива 1 2 3 4 5 6 7 … значения элементов массива 0 3 0 5 0 7 0
Показать ответ
Ответ:
SkokivaAlina
03.10.2020 11:55
Const k = 1000;
var a:array[1..k] of integer;
i,n:integer;
begin
writeln('введите n ');
readln(n);
for i:=1 to n do begin
if i mod 2 = 0 then a[i]:=i+1;
write(a[i],' ');
end;
end.
Тестовое решение:
введите n
10
0 3 0 5 0 7 0 9 0 11
0,0
(0 оценок)
Популярные вопросы: Информатика
gerty1000
24.07.2020 00:57
Максимальная скорость передачи данных по некоторому модемному протоколу сосотавляет 48кбит/с. какое максимальное кол-во байт можно передать за 8сек по этому протоколу?...
mrartemartem1
12.09.2022 06:49
Решите , что сможете , это начало егэ по информатике , вроде просто...
Oxxxy502
25.04.2021 08:15
16 17 ғасырларда пайдаланылған есептеу құрылғысы...
крыска235
29.03.2021 11:11
Разгадайте кроссворд по теме инструменты скетч ап...
Hikena
03.06.2021 07:43
1.Что такое объект? Что такое модель? 2. Что означает 3D моделирование?3.Что такое 3D редактор?4. Какие 3D редакторы ты знаешь?...
LianaIlyasova
13.03.2022 20:01
Практическая работа ► Составьте разные виды задач: ❑ с практическим содержанием; ❑ для решений которых неизвестны точные методы решения; ❑ из различных областей...
anastasiyapinoнастя
04.02.2020 20:02
. Обчислити середню кінетичну енергію молекул ідеального газу за температури 27℃....
Даша6741
06.05.2021 16:44
. Рассчитайте, где больше атомов: в 1 г йода или в 1 г серебра....
MogekoKcalb
01.02.2020 06:38
14. Відносними є всі прикметники рядка А математичний знак, сиве волосся, джерельна вода Б дерев яна рама, солом яна іграшка, осінній день В лебедина вірність,...
ktoto2956
01.02.2020 06:38
мне нужен стиь тип и жанр ответьте мне очень нужен ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..k] of integer;
i,n:integer;
begin
writeln('введите n ');
readln(n);
for i:=1 to n do begin
if i mod 2 = 0 then a[i]:=i+1;
write(a[i],' ');
end;
end.
Тестовое решение:
введите n
10
0 3 0 5 0 7 0 9 0 11