Вопрос по информатике:
ПОМОГИТЕ!!!
PASCAL.
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Количество элементов массива, лежащих в диапазоне от A до B.
2. Сумму элементов массива, расположенных после максимального элемента.
3. Упорядочить элементы массива по убыванию модулей.
Правило формирования массива: Bi=cos(i), где i∈ [1,50].
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.05.2015 15:27
- Информатика
- remove_red_eye 4917
- thumb_up 13
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
procedure Println(Self:array of real); extensionmethod;
begin
Self.Batch(5).foreach(s->
begin foreach var p in s do Write(p:15:10); Writeln end);
Writeln(Min(15*(Self.Count div 2),38)*'- ')
end;
begin
var m:=ArrGen(ReadInteger('n='),i->Cos(i),1); m.Println;
var (a,b):=ReadReal2('Введите границы A B:');
Writeln('Число элементов на интервале [',a,',',b,'] равно ',
m.Where(t->t.Between(a,b)).Count);
Write('Сумма элементов, расположенных после максимального, равна ');
var imax:=m.IndexMax;
(m?[imax+1:].Sum).Println;
Writeln('Элементы, упорядоченные по убыванию модулей');
m:=m.OrderByDescending(t->Abs(t)).ToArray; m.Println;
end.
- 22.05.2015 01:07
- thumb_up 30
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.