Вопрос по информатике:
Напишите функцию которая находит максимальный элемент переданного ей динамического массива (паскаль)
Пожаловаться
- 13.12.2016 19:46
- Информатика
- remove_red_eye 2906
- thumb_up 35
Ответы и объяснения 1
// 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
// Внимание! Если программа не работает, обновите версию!
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
Пожаловаться
- 14.12.2016 08:35
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы