Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Darya2712
05.10.2020 02:36 •
Информатика
Напишите программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке.
Показать ответ
Ответ:
мaкs2005
04.10.2020 20:14
Var
i:integer;
a: array [1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
write(a[i],' ');
writeln(' ');
for i:=10 downto 1 do
write(a[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
vikasm2001
03.04.2023 08:37
В10а и 10б классах девочек 1110двоичной. сколько мальчиков , если всего 18 в шестнадцатиричная человек?...
fdglksjf
13.08.2022 17:25
Пож-! брошюра содержит 28 страниц, на каждой из которых 8 строк из 32 символов каждая. сколько килобайт составляет информационный объем текстового файла брошюры, если для...
Boss008Mta
14.01.2020 01:35
с информатикой ! Сколько единиц в двоичной записи числа 8115 – 4123 + 2543 – 15?...
1zoya
31.05.2021 10:44
Музыкальный фрагмент был записан в формате квадро (четырёхканальная запись), оцифрован и сохранён в виде файла без использования сжатия данных. Затем тот же музыкальный фрагмент...
svetaredkina
27.05.2023 09:01
Что стал носить А.Маресьев после ампутации ног?...
kosyamosya03
25.03.2020 13:48
Найпоширеніший будівельний матеріал середньовіччя...
877171402501
07.01.2023 00:25
Послушать Вальс Осінній сон и Номер 15 В обычном исполнении и в джазовому аранджуванні. Написатм твір який вальс більше сподобався і чому ....
Pixelia
15.08.2020 07:17
2 ** . Rewrite the sentences using commas, full stops and capital letters 1 lucy is american she comes from new york 2 i like tennis golf and cycling i don t like football...
mishkaievlev
01.05.2023 01:11
Как начертить окружность с радиусом корень из двух?...
alyamirnaya28
22.06.2021 11:57
3. 4. 5. до іть будьласка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i:integer;
a: array [1..10] of integer;
begin
writeln('Введите числа');
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
write(a[i],' ');
writeln(' ');
for i:=10 downto 1 do
write(a[i],' ');
end.