Вопрос по информатике:
Дан массив, содержащий несколько максимальных элементов. Найти порядковый номер последнего из них. ПОМОГИТЕ ПРОШУУУУУ
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 07.07.2015 15:12
- Информатика
- remove_red_eye 4642
- thumb_up 38
Ответы и объяснения 1
Const
nm = 50;{максимальная длина массива}
var
i, n, max, p: integer;
a: array[1..nm] of integer;
begin
Write('Введите количество элементов в массиве: ');
Readln(n);
max := -32768;
Write('Введите элементы массива через пробел ');
for i := 1 to n do
begin
Read(a[i]);
if max <= a[i] then
begin
max := a[i]; p := i
end
end;
Writeln('Последний максимальный элемент ', max, ' имеет номер ', p)
end.
Тестовое решение:
Введите количество элементов в массиве: 10
Введите элементы массива через пробел 4 -5 6 -9 1 0 6 3 -1 5
Последний максимальный элемент 6 имеет номер 7
- 08.07.2015 08:59
- thumb_up 27
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.