Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
TkAl06
17.10.2022 23:33 •
Информатика
Как обратить массив в pascale abc? (тоест 1 2 3 4 5 сделать 5 4 3 2 1
Показать ответ
Ответ:
123456531
08.10.2020 02:54
Const N = 10;
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do begin
b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Даша6262717171717
20.01.2021 02:15
Матроскин купил Р пакетов молока и хочет разместить их на двух полках холодильника. На одну полку влезает не более 5 пакетов. Разработать программу, которая вводит Р и выводит...
youtubeadamchuk
28.08.2020 21:46
Ребят нужна по информатике (заплачу деньгами по 50грн. За одну работу) 9 класс нужно три работы...
totty1
09.02.2023 03:55
Задание №10. «Правовое обеспечение информационной безопасности» Во Приведите основные законодательные и нормативные документы? 2. Каким образом можно их классифицировать? 3. Каковы...
AloysiuS
05.04.2020 15:04
Дуже Хто точно знає відповід...
Ore11
19.01.2020 08:17
Разработайте базу данных «Продуктовый магазин», которая состоит из четырех таблиц со следующей структурой: Товары – код товара (ключевое поле), наименование товара, количество...
oxle
06.11.2022 19:21
НУЖНО НАПИСАТЬ ОКОННОЕ ПРИЛОЖЕНИЕ НА С# ДЛЯ РЕШЕНИЯ ЭТОЙ ЗАДАЧИ Задана матрица натуральных чисел A(n,m). За каждый проход через клетку (i,j) взымается штраф A(i,j). Необходимо...
NastikLoVe22
29.06.2021 06:38
Приведите примеры материалов, у которых практически нет диффузного или зеркального отражения....
King575
05.11.2022 13:02
Элементы математической логики и алгебра Буля. Задание: Запишите формулы для следующих высказываний, обозначив буквами входящие в них высказывания: 1. Если я поеду на автобусе,...
Vika7928728272
26.07.2021 06:59
найти ошибку в коде. Пишет что что-то не так с : после if Python 3 c1 = int(input())r1 = int(input())c2 = int(input())r2 = int(input(()if c1==c2 or r1==c2: print( YES )else : print(...
matthewfeat
09.02.2021 23:32
Знайти суму всіх послідовних цілих парних натуральних чисел від 2 до N. (Наприклад: якщо ввести N=10, то S:=2+4+6+8+10 , якщо ввести N=9, то S:=2+4+6+8).(лазарус)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do begin
b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.