1. Информатика
  2. Сформировать массив из 10 целых

Сформировать массив из 10 целых чисел, водимых с клавиатуры,и вынести элементы массива в обратном порядке

viktoriasmirnova200 viktoriasmirnova200    1   15.12.2021 06:11    1

Ответы
bluecat12 bluecat12  05.02.2022 08:53

Программа:

Pascal:

var

 arr: array[1..10] of integer;

 i: integer;

begin

 for i := 1 to 10 do readln(arr[i]);

 for i := 10 downto 1 do write(arr[i], ' ');

end.

Результат:

1

2

3

4

5

6

7

8

9

10

10 9 8 7 6 5 4 3 2 1

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ludarudenko98 ludarudenko98  18.01.2021 11:59
Построить логическую схему для логического выражения: Xили НЕ Y˄НЕ Z или Z ​...
Аропахора Аропахора  28.11.2021 06:29
сделать чат бота на минимум 100 строчек...
дамчок дамчок  28.11.2021 07:35
Кмарал и Анеля любят оригами. Часто девочки вместе работают над созданием фигурок из бумаги. Для одной из фигурок Акмарал вырезала квадратный кусочек бумаги стороной...
samojlenko15 samojlenko15  28.11.2021 07:35
В первой строке находится два целых числа и . Ограничения . Формат Вывода...
PETR511 PETR511  28.11.2021 07:43
Акмарал и Анеля любят оригами. Часто девочки вместе работают над созданием фигурок из бумаги. Для одной из фигурок Акмарал вырезала квадратный кусочек бумаги стороной...
nastiaX352 nastiaX352  28.11.2021 07:43
Алихан, Ануар и Арман решили написать командную олимпиаду по программированию. К сожалению в кабинете было только два свободных ноутбука, для участия в олимпиаде нужен...
LikiMikhoelis LikiMikhoelis  10.07.2019 16:50
Скорость передачи данных через adsl-соединение равна 1024000 бит/с.через данное соединение файл размером 2000 кбайт. определите время передачи файла в секундах....
алисатян2 алисатян2  10.07.2019 16:50
Какой копирования объектов не использует буфер обмена? а перенос левой кнопкой мыши с нажатой клавишей ctrl в клавиатурный с копировать, вставить д контекстное меню...
sqerrr sqerrr  29.04.2020 18:17
ТОЛЬКО первый номер 8 Класс...
imranio imranio  29.04.2020 18:12
За­пи­ши­те сколько раз выполняется цикл Var s, n: integer; Begin s := 20; i:=4; while i 7 do begin s := s + i*2; i:=i+1; end; Writeln(s); End....

Популярные вопросы