Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
EvgenyMalkin71
26.03.2020 07:17 •
Информатика
Составьте программу, которая формирует массив из десяти случайных чисел от -45 до 45 и меняет местами значение первого и последнего элементов
Показать ответ
Ответ:
Kirill4421
20.08.2020 09:28
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
Пример
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
0,0
(0 оценок)
Ответ:
Zhamik11
20.08.2020 09:28
Type mas= Array [1..10] of integer;
var i,M:integer;
a:mas;
begin
randomize;
for i:=1 to 10
do begin
A[i]:=random (-45,45);
write(A[i],' ');
end;
writeln();
A[1]:=M
A[i]:=A[10];
A[10]:=M;
for i:=1 to 10
do write(A[i],' ');
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Айгуль19791788
16.01.2020 17:01
Перечисли основные создания трёхмерных моделей ...
fakersot
23.08.2022 19:57
C# Си шарп На шахматной доске в клетке с координатами x1, y1 находится слон. Определить, сможет ли он убить фигуру, находящуюся в клетке x, y Клиент купил N пирожков по цене k...
olleandro
08.07.2021 21:38
информатика там первый вопрос.написано ;Определите форматы в ячейках таблица А...
fomenko6
17.10.2021 09:01
МНЕ ОЧЕНЬ НАДО.ЕСЛИ НЕ ЗНАЕТЕ НЕ ПИШИТЕ У МЕНЯ УЖЕ МАЛО:(((...
NeSkAfE821
10.06.2020 22:41
Первая труба наполняет бак за 8 минут,вторая за 16 минут.какая часть бака останется незаполненной,если открыть обе трубы одновременно...
aleksaptikeev
02.12.2020 22:08
Почему в реальной жизни рыцари нарушали кодекс чести? ?...
aleks1yus
02.12.2020 22:08
Read the letter. в какой день максим пишет свое письмо? что происходит у него дома? dear ben, thank you for the video. i like it. today is sunday. i am writing a letter to you....
Пушинканя231
02.12.2020 22:08
Как записать условие к художник написал 7портретов и9 пейзажев. для выставки он отобрал 4 портрета и 5 пейзажей....
dianadobosh13
02.12.2020 22:08
Компьютеры, автомобили, фотоаппараты, видеокамеры, пилы и рубанки - все это...
Alina221006
25.10.2022 21:06
Одна сторона картины равна 80 см, другая-1м 20см. сколько нужно для оформления этой картины? (багет- декоративная планка,которую используют для оформления картин, рисунков, фотографий.)...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(10,-45,45); a.Println;
Swap(a[0],a[9]); a.Println
end.
Пример
32 -1 21 17 13 11 -7 14 -7 4
4 -1 21 17 13 11 -7 14 -7 32
var i,M:integer;
a:mas;
begin
randomize;
for i:=1 to 10
do begin
A[i]:=random (-45,45);
write(A[i],' ');
end;
writeln();
A[1]:=M
A[i]:=A[10];
A[10]:=M;
for i:=1 to 10
do write(A[i],' ');
end.