Вопрос по информатике:
В массиве A[1..N] найти максимальное число и уменьшить все элементы массива на 5. Вывести полученную последовательность на экран. Помогите пожалуйста!
Пожаловаться
- 23.08.2018 23:00
- Информатика
- remove_red_eye 4806
- thumb_up 39
Ответы и объяснения 1
// PascalABC.NET 3.2, сборка 1385 от 14.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Максимальный элемент равен ',a.Max);
a.Transform(x->x-5); a.Println;
end.
Пример
n= 15
30 73 60 94 45 83 32 11 47 25 44 71 95 60 90
Максимальный элемент равен 95
25 68 55 89 40 78 27 6 42 20 39 66 90 55 85
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),10,99); a.Println;
Writeln('Максимальный элемент равен ',a.Max);
a.Transform(x->x-5); a.Println;
end.
Пример
n= 15
30 73 60 94 45 83 32 11 47 25 44 71 95 60 90
Максимальный элемент равен 95
25 68 55 89 40 78 27 6 42 20 39 66 90 55 85
Пожаловаться
- 24.08.2018 17:47
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы