tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Напишите программу,
Напишите программу, которая вводит массив из 10 целых чисел и выводит на экран этот же массив в прямом и обратном порядке.
viktoriya212
2 15.08.2019 03:40
1
Ответы
аслансосланов
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Dashocheg43
26.09.2019 07:40
A: =12 b: =11 a: =a div b b: =a*b a: =b div a...
sirdemenev
03.03.2021 13:10
3. Написати програму, яка за введеним значенням копійок визначить кількість повних гривень і решту копійок. Наприклад: 250 копійок 2 гривні 50 копійок....
Shurikoff1
03.03.2021 13:11
Как изменить учасників лвк после 2 раунду,я нажимаю изменить учасників,і там є тіки ті що на лвк і я не можу взяти друга Chipsic.Як його додати?...
peatkina1106200
03.03.2021 13:11
Для выполнения математических, тригонометрических, логарифмических операций на языке Python необходимо подключить библиотеку *...
Anastasiay29
29.10.2019 09:03
Результат: вот вам квест, кларнет (это важно) ъъзфюефцкю ги фгщдеь ънау цвхяч, фщю ттьд акоррсе йпюыбт эчьюь фтжсэз офцт ащчь ясна она ясна эьи (шифр задали, )...
pavlikpanov200oyp9mu
29.10.2019 09:13
Известно количество осадков выпавших за первые 7 дней октября в течении 2х лет. написать программу определяющую верно ли что кол-во осадков за первый год превысило соответствующее...
Алина06072003
29.10.2019 09:13
19. в двоичной системе счисления записана следующая строка: 21010011010010101100=11001000левая часть состоит из нескольких чисел, каждое из которых занимает памяти ровно 1байт....
antihype3
29.10.2019 09:19
Для множества дизъюнктов {¬q(x, g(b))∨r(f(a), y, z)} определите количество констант, которое содержит эрбрановский универсум 1-го уровня....
YNWA12
29.10.2019 07:33
Написать программу на c# с решением уравнения x+5 = 0...
Ztduvuycc
29.10.2019 07:37
Сообщение «урок», записанное в «компьютерном» алфавите из 256 символов, содержит (надо узнать) информации.или 8 байт32 байта32 бита4 бита...
Популярные вопросы
Найдите значение арифметического квадратного корня из произведения коэффициентов,...
3
5. Вычислите массу технического железа (массовая доля алюминия 75%), которая...
1
5 класс история гай юлий цезарь 1. Гай Юлий Цезарь: А) Защищал интересы народа,...
1
ДЗ ПО ХИМИИ!НУ ОЧЕНЬ НУЖНО!...
1
Біологія 9 клас Порівняти механізм визначення статі у метеликів і ссамців.Перевод...
1
В каких сценах оперы рассказывается характеристики главных героев- Наташи,...
3
В числі 3141592653589793 закресліть 7 цифр так, щоби залишилось найбільше можливе...
1
Очень завтра уже будет поздно! Условие задания в фото (ЧИТАТЬ ОБЯЗАТЕЛЬНО!)...
2
1. Гриби належать до рослин. 2. Гриби-паразити можуть оселятися на поверхні...
2
вызначце тэму и идэю маци Аркадзь Куляшоу.SOS! SOS! SOS!!...
3
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.