Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Yana12ost
17.11.2022 08:05 •
Информатика
Напишите функцию которая находит максимальный элемент переданного ей динамического массива (паскаль)
Показать ответ
Ответ:
anton280605
07.10.2020 19:41
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
function amax(a:array of integer):integer;
begin
Result:=a.Max
end;
begin
var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
Writeln('Максимальный элемент равен ',amax(x))
end.
Пример
n= 15
-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46
Максимальный элемент равен 50
0,0
(0 оценок)
Популярные вопросы: Информатика
1slishkomtupaya
11.04.2021 23:49
Переведите 226 бит во все изученные единицы измерения количества информации...
lebedd50
10.04.2020 05:34
Какие ошибки допущены в программе? Python. Питон 1)Какие ошибки допущены в программе? print (Введите число a) a=int(input()) if a =0: a=18 else a+=1 else: a-=6 print (a)...
marinaschakina
16.01.2022 00:13
Запрограммировать линейные алгоритмы в среде АВСPascal и выслать листинги программ на почту: 1) вычислить значение выражения k=7x+10; 2) килограмм яблок стоит 96 рублей,...
kitecat12
06.03.2023 03:29
Які команди можна використати для опрацювання подій у середовищі Scratch2? Де вони розміщені?...
Marieta111
07.08.2022 22:45
Вычислите логические выражения. (10),(16) - система исчислений y =(2(16) OR 2C(16) IMP 39(10)) OR 26(10) Варианты ответов: 1111111111111111 100111 101110 101100 С решеним...
Анастасия20010104
06.06.2021 13:41
)1. У исполнителя Альфа две команды, которым присвоены номера:1. прибавить 12. умножь на b (b – неизвестное натуральное число; b≥2)Выполняя первую из них, Альфа увеличивает...
fafgames72
18.12.2020 11:47
60) Документ объёмом 80 Мбайт можно передать с одного компьютера на другой двумя А. Сжать архиватором, передать архив по каналу связи, распаковать. Б. Передать по каналу...
геля569878
12.06.2022 01:05
В результате выполнения фрагмента программына экран выведено число 10148. Какое число хранилось до этого впеременной п, если известно, что все цифры в нем четные?...
10ЛК
05.02.2023 20:02
Операционная система – это … 1)комплекс программ, организующих управление работой компьютера и его взаимодействие с пользователем 2)совокупность основных устройств компьютера...
alioo
04.08.2022 05:25
Запусти Pascal. Введи программу. program pr_1; var x,y,sum, umn: integer; begin write ( x= ); readln (x); write ( y= ); readln (y); sum:=x+y; umn:=x*y; writeln ( sum= ,sum);...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
function amax(a:array of integer):integer;
begin
Result:=a.Max
end;
begin
var x:=ArrRandom(ReadInteger('n='),-50,50); x.Println;
Writeln('Максимальный элемент равен ',amax(x))
end.
Пример
n= 15
-21 9 27 -46 -17 -21 22 50 -50 -47 -20 43 -23 43 -46
Максимальный элемент равен 50