Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
katerinatumasjp02dx5
17.08.2022 09:05 •
Информатика
Элементы заданного b(n) переписать в новый массив a(n) в обратном порядке( паскаль)
Показать ответ
Ответ:
20Sascha07
03.10.2020 08:46
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
var a:=b.Reverse.ToArray;
a.Println
end.
Тестовое решение:
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53
0,0
(0 оценок)
Ответ:
IlyaLzt
03.10.2020 08:46
Const
N = 20;
var
a,b: array [1..N] of integer;
i : integer;
begin
//Для проверки заполним массив сл. числами
for i := 1 to N do
begin
b[i] := Random(41) - 20;
write(b[i]:4);
end;
writeln;
//Вывод в другой массив
for i := 1 to N do
begin
a[i] := b[n-i+1];
write(a[i]:4);
end;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
12853
19.02.2022 19:01
Создать блок-схему и программу расчета...
MrNazick
15.02.2023 06:28
решите информатика 7 класс...
Бегемотик397
20.06.2020 12:26
Вот ещё задачи по информатике, буду благодарна если кто-то сделает >...
шамшода
12.12.2021 01:47
Изображения какой графики реалистичны, обладают высокой точностью передачи градаций цветов и полутонов A.Растровая B.Векторная C.Трехмерная D.Фрактальная...
jixeli
04.11.2020 01:50
Тест с ответами записи алгоритмов...
akolosov2002
13.09.2020 15:44
Нужно разгадать кроссворд ,,информация и информационные процессы...
FayaKuraeva
21.10.2020 02:00
с информатикой (написанные ответы не засчитывается)...
vigolnikov
07.11.2020 07:18
1. как устанавливать платформы CMS? 2. какие технические требования к компьютерам для установки платформ CMS?...
2329992ляля
06.01.2022 07:02
составить алгоритм для Робота: закрасить клетки вокруг стен в виде буквы Т и вернуться в исходное положение...
DashaL109
15.08.2020 02:44
до 15:00 нудно сделать всего 3 вопроса...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
var b:=ArrRandom(ReadInteger('n='),10,99); b.Println;
var a:=b.Reverse.ToArray;
a.Println
end.
Тестовое решение:
n= 13
53 75 96 56 24 37 99 57 96 41 51 31 50
50 31 51 41 96 57 99 37 24 56 96 75 53
N = 20;
var
a,b: array [1..N] of integer;
i : integer;
begin
//Для проверки заполним массив сл. числами
for i := 1 to N do
begin
b[i] := Random(41) - 20;
write(b[i]:4);
end;
writeln;
//Вывод в другой массив
for i := 1 to N do
begin
a[i] := b[n-i+1];
write(a[i]:4);
end;
end.