Вопрос по информатике:
Информатика,Паскаль,написать программу: Сформировать массив, состоящий из n целых элементов, лежащих в промежутке [10;10] Вычислить:
-минимальный по модулю элемент
- количество элементов кратных 5
- сумму элементов массива, расположенных между первым и последним положительными элементами.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 25.06.2017 08:21
- Информатика
- remove_red_eye 2122
- thumb_up 38
Ответы и объяснения 1
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
Writeln('Минимальный по модулю элемент равен ',
a.Select(t->Abs(t)).Min);
Writeln('Количество элементов, кратных 5, равно ',
a.Where(t->t mod 5=0).Count);
Write('Сумма искомых элементов равна ');
var ai:=a.Indexesof(t->t>0);
a[ai.First+1:ai.Last].Sum.Println;
end.
- 27.06.2017 00:30
- thumb_up 24
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.