Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
настя7567
18.08.2020 18:34 •
Информатика
Создать массив из цифр из 20 элементов и инвентировать его (т.е. вывернуть его задом на перед)
Показать ответ
Ответ:
Alinamail02
09.10.2020 22:29
Const
N = 20;
type
Mas = array [1..N] of longint;
procedure input(var m: Mas);
var
i: longint;
begin
for i := 1 to N do
read(m[i]);
end;
procedure output(m: Mas);
var
j: longint;
begin
for j := N downto 1 do
write(m[j], ' ');
end;
var
m: Mas;
begin
input(m);
output(m);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Nastasia8879
03.11.2021 22:52
Перевести без калькулятора: 128*1024*128*128: 12 бит-кбайт...
никто273
17.02.2020 10:15
Запустите текстовый редактор Word. Скачайте (скопируйте) из Интернета и сохраните информацию об известных поэтах и писателях. Наберите найденную информацию на трех страницах....
BOMJangLOX
27.05.2023 07:31
1) покончил жизнь самоубийством 22. При каких обстоятельствах рассказчик встретил старуху в рассказе М. Горького «Старуха Изергиль»?A) Рассказчик собирал виноград в БессарабииБ)...
EvilHany
27.05.2023 07:31
Главное, не надо обращать на него внимания: он церемоний не любит.Как объяснить постановку двоеточия в данном предложении: (Укажите букву с правильным ответом)A) Вторая часть бессоюзного...
Angelina000477
26.03.2020 08:38
В треугольнике ABC угол A равен 90, tgB=3, AC=9. Найдите AB. *...
Tapty
31.08.2020 03:20
вычислите площадь фигуры ограниченной графиками функций y=x^2+2x+2, y=0, x=-1, x=2...
mariyapopova21
31.08.2020 03:20
Определите среднюю ЭДС самоиндукции, возникающую в катушке с индуктивностью 2 Гн за 0,2 секунды при изменении силы тока в ней от 2 до 4 А. ответ запишите числом....
farij
30.05.2020 13:46
1. Спишите текст, вставив (где необходимо) буквы, раскрыв скобки и расставив недостающие знаки препинания. Живописец Франс Снейдерс считает(ь)ся призна(н)ым мастером фламандского...
Dashocheg43
18.11.2020 23:29
Из группы студентов, среди которых 4 отличника, 10 хорошистов и 6 троечников, наугад выбран студент. Вероятность того, что отобран хорошист или отличник, равна...
vadimvadimkuz
18.11.2020 23:29
Вычислить площадь фигуры ограниченной графиками функций y=x^2+2x+2,y=0,x=-1,x=2...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
N = 20;
type
Mas = array [1..N] of longint;
procedure input(var m: Mas);
var
i: longint;
begin
for i := 1 to N do
read(m[i]);
end;
procedure output(m: Mas);
var
j: longint;
begin
for j := N downto 1 do
write(m[j], ' ');
end;
var
m: Mas;
begin
input(m);
output(m);
end.