Войти
Регистрация
Спроси ai-bota
Priveee
06.03.2023 07:42
Напишете программу на языке pascal, которая в массиве из 23 элементов заменяет последний элемент минимальным. массив должен заполняться случайными значениями в интервале от 0 до 120
Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
Aly6000
08.01.2021 13:04
С++ Ввести с клавиатуры строки и записать их в файл. В каждом нечетном строке определить последовательность цифровых символов и записать длину этой последовательности...
aaaa1111111111
03.09.2022 11:51
По информатике: 1. оптимизировать код: y: =4 если y равно 3 тогда z: =10 иначе z: =20 конец если 2. оптимизировать код: пока x не равно 1 x: =1 конец цикла...
rozella2017
02.09.2022 14:47
8. как будет выполняться фрагмент кода, с форматом вещественных чисел ? x: =0.01 пока x не равно 1.00 вывод(x) x: =x+0.01 конец цикла...
pepsy94zm
02.09.2022 14:47
10. якщо вам потрібно намалювати пейзаж, яким графічним редактором краще скористатись? відповідь обґрунтуйте....
theartik1
02.09.2022 14:47
Переведите в 10-ю сс числа: 122 (снизу 8) ; 1a9 (снизу 16) ; 35,2 (снизу 6)...
TheArinaS
02.09.2022 14:47
Логическое выражение и нарисуйте логическую схему выражения: f= не x+неv + неy*неz...
wifaretaba
13.07.2022 23:53
Нужно сделать алгоритм(блок-схему) для программы: const k = 14; var n: array[1..k] of integer; sum, i, kpol: integer; p: real; begin randomize; kpol : = 0; sum :...
katehell11
21.02.2020 00:03
Автомат получает на вход трёхзначное десятичное число. по полученному числу строится новое десятичное число по следующим правилам. 1. вычисляются два числа – сумма...
angrelygovo201
29.11.2022 18:41
Автомат получает на вход трёхзначное число. по этому числу строится новое число по следующим правилам. 1. складываются первая и вторая, а также вторая и третья цифры....
MariSar
11.10.2022 10:43
До іть в програмі Lazarus...
Ответ:
Yuntsev
05.10.2020 03:57
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(23,0,120); a.Println;
a[22]:=a.Min; a.Println
end.
Пример
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 34
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 1
0,0
(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота