Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
nastialeon
04.02.2021 19:27 •
Информатика
Составьте программу для ввода с клавиатуры в массив 9 вещественных чисел в строку и вывода чисел в столбец в обратном порядке
Показать ответ
Ответ:
Eliman1
07.10.2020 08:12
Var
A: array [1..9] of real;
i: byte;
begin
for i := 1 to 9 do read(A[i]);
for i := 9 downto 1 do writeln(A[i]);
end.
Пример:
1 2 3 4 5 6 7 8 9
9
8
7
6
5
4
3
2
1
0,0
(0 оценок)
Популярные вопросы: Информатика
IkaNika
14.10.2022 11:58
Замените в заданном слове все заданные буквы пробелами. 1)аргумент 2) результат 3) ! ; )...
Kiska89
14.10.2022 11:58
Больше нужно вывести 3 первых натуральных числа кратных n, через k чисел (блок схема, k = 5, n = 3)...
Staer1188
14.10.2022 11:58
Напишите программу, которая заполняет массив из n элементов случайными целыми числами в диапазоне [ a , b ] и определяет количество положительных трёхзначных чисел в этом массиве,...
ангел813
14.10.2022 11:58
14234bdb9d75b4d7b158d15a6da679ceразгадайте код в слово...
Isa22222
01.02.2022 10:12
Самое маленькое четырехзначное число, в записи которого в римской системе счисления тоже четыре цифры...
Marshmallow123
17.02.2022 08:46
Дәптерге орындайық Анықтамасын жазыңдар.Тіл әліпбиі ... .Синтаксис ...Транслятор ... .Айнымалылар ... ....
8007F300среднячок
13.08.2022 13:40
Среды предназначенные для создания интерфейса программы без написания программного кода называется...
blackmaster2442
02.05.2022 09:01
Запишите значение переменной s, полученное в результате работы следующей программы. В ответе запишите только число, которое будет напечатано: Var s,k: integer; Begin s := 0; for...
жанат17
19.10.2022 19:43
2. Превратите одно слово в другое, всякий раз зименяя по одной букве так, чтобы Новое слово было существительным в И.пЛужа. . . . . Море...
Sasha200593
22.02.2021 11:43
2. какие особенности в атмосферах планет-гигантов были открыты автоматическим межпланетным станциям?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
A: array [1..9] of real;
i: byte;
begin
for i := 1 to 9 do read(A[i]);
for i := 9 downto 1 do writeln(A[i]);
end.
Пример:
1 2 3 4 5 6 7 8 9
9
8
7
6
5
4
3
2
1