Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ксения200612
24.05.2023 13:51 •
Информатика
4. массив а размером 10 заполняется по формуле i-4, где i- счётчик индексов. поменять местами второй и предпоследний элементы массива. ( в паскале)
Показать ответ
Ответ:
beliy112329
05.10.2020 06:46
Var
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
0,0
(0 оценок)
Ответ:
nastya05112
05.10.2020 06:46
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->i-4,1); a.Println;
Swap(a[1],a[8]); a.Println
end.
Результаты
-3 -2 -1 0 1 2 3 4 5 6
-3 5 -1 0 1 2 3 4 -2 6
0,0
(0 оценок)
Популярные вопросы: Информатика
igorgame39
21.05.2021 12:15
На PYTHON: Составьте программу для нахождения суммы, разности, произведения, частного двух (необязательно целых) чисел. Предусмотрите чтобы в случае деления на 0, выводилось сообщение...
EpsilonDelta
03.01.2020 09:11
1. Массив А заполнили 20 действительными числами. Найдите сумму элементов по модулю больших 5.2. Массив А заполнили 15 целыми числами. Определить количество эдементов по модулю...
Іванка2006
18.06.2020 13:57
Даны два четырёхзначных числа A и B. Выведите все четырёхзначные числа на отрезке от A до B, запись которых является палиндромом. на Javaвходные данные16002100выходные данные16611771188119912002...
Wakawak
15.12.2022 19:14
Определить расширения файловых форматов: ВИДЕО ФАЙЛ, ГРАФИЧЕСКИЙ, ТЕКстовой,ЗВУКОВОЙ ФАЙЛ, ПРОГРАММы исполниТЕЛИbmp, txt, exe, wav, zipmpeg, jpg, docx, wav, exejpg, doc, exe, mp3,...
aiis171
21.03.2023 03:27
11.какой файл займет в памяти компьютера больше места : текст из 2056 символов в кодировке unicode или 17-цветное растровое изображение размером 10х10 пикселей 12. для сохранения...
Sestare852
08.10.2022 11:01
с Условие Дан список, упорядоченный по не убыванию элементов в нем. Определите, сколько в нем различных элементов. Во всех задачах считывать входные данные из input () и выводите...
Вова12345678912
28.01.2020 03:53
с Условие Дан список чисел. Определите, сколько в этом списке элементов, которые больше двух своих соседей, и выведите количество таких элементов. Последние элементы списка никогда...
Likable2009
17.12.2021 23:11
Всем здравствуйте! Очень вас с написанием кода на Python. Было бы здорово если бы вы также мне разобраться что и для чего в этом коде нужно Заранее премного вам благодарен...
tcalala
25.02.2023 13:39
с Условие Дан список чисел. Выведите значение наибольшего элемента в списке, а затем индекс этого элемента в списке. Если крупнейших элементов несколько, выведите индекс первого...
630035
02.02.2020 13:53
Как взломать пентагон? ...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
a[i] := i-4;
a[2] := a[9] + a[2];
a[9] := a[2] - a[9];
a[2] := a[2] - a[9];
for i:=1 to 10 do
write(a[i], ' ');
end.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(10,i->i-4,1); a.Println;
Swap(a[1],a[8]); a.Println
end.
Результаты
-3 -2 -1 0 1 2 3 4 5 6
-3 5 -1 0 1 2 3 4 -2 6