Вопрос по информатике:
В одномерном массиве состоящем из n вещественных элементов вычислить:
1) номер максимального по модулю элемента массива
2) сумму элементов массива, расположенных после первого положительного элемента
Написать нужно программу на паскале. Это 2 условия должны быть в одной программе выполнятся. Помогите.
- 22.12.2017 06:09
- Информатика
- remove_red_eye 11683
- thumb_up 32
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
a.Println;
var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
var ip:=a.FindIndex(x->x>0)+1;
Writeln('Номер максимального по модулю элемента: ',imax+1);
Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.
Пример
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7
- 23.12.2017 02:52
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.