Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Лизунчик011
16.03.2021 22:04 •
Информатика
Элементы заданного b(n) переписать в новый массив a(n) в обратном порядке( паскаль)
Показать ответ
Ответ:
ВКГ1
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 оценок)
Ответ:
sadzim
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 оценок)
Популярные вопросы: Информатика
Gulya6922
21.01.2020 15:15
Напишите программу в python, которая выводит число 105....
mxnty
26.03.2020 17:04
1.Ввести два числа и найти их произведение: 1.a=int(input ( a= )) 2.b=int(input ( b= )) 3.s=(a*b) 4.print(s) если я буду вас багословить ивашу семю...
hiset37281
10.08.2020 06:17
Напишите программу, которая выводит число 105....
antoshkaromanov
21.01.2022 08:01
3. Заполни таблицу, используя информацию из интернета. NgТемаКоличествосайтовМесто храненияинформации накомпьютереАдрес сайтанайденнойинформации1.2.Астана – сердцестраны.Космодром«Байконур».Планеты...
ilnitskiy
26.01.2023 05:36
Напишите программу, в которой вводится число. Требуется вывести его так, что бы составляющие его цифры шли в обратном порядке. Например, вводится число 4096, надо вывести...
AnutaBelova1524
14.08.2021 02:38
Написать программу, которая вычисляет стоимость покупки, состоящей из нескольких линеек, нескольких маркеров и одной файловой папки. Хорошо продумай, какие исходные данные...
sofitit0410
26.12.2021 20:52
Тип данных , каждый ключ которого соответствует определенному значению. * кортежстрокиспискисловарьлогический тип...
cabinamaksarov
28.09.2021 10:42
нужно пройти тренажёр стамина там быстро по информатике Но компьютера нет http://stamina-online.ru Прикрепите скриншот не обрезая...
ПОРНОООСЕКС
21.07.2020 16:12
Напишите код программы для решения задачи Написать программу, определяющую, к какой весовойкатегории относится спортсмен:до 69 кг — легкий вес;до 85 кг – средний вес;до...
LeraSmile12
01.05.2022 00:41
a:=int(input()). b:=int (input) p:=(a+b) 2 print(периметр) = p). Найдите ошибки в коде программы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.