Вопрос по информатике:
Помогите пожалуйста!
Задан массив действительных чисел. Заменить отрицательные элементы, не попадающие в интервал (-4,7; -0,1), их модулями.
Вводится последовательность из N произвольных чисел. Найти наибольшее число в последовательности. Если таких чисел несколько, определить, сколько их.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 04.07.2015 00:02
- Информатика
- remove_red_eye 10588
- thumb_up 16
Ответы и объяснения 1
// Внимание! Если программа не работает, обновите версию!
begin
var a:=SeqRandom(ReadInteger('n='),-1000,1000).Select(t->t/100).ToArray;
a.Println;
a.Transform(t->t.Between(-4.7,-0.1)?t:-t); a.Println
end.
Пример
n= 10
6.6 -4.4 -2.21 -4.95 -7.26 1.38 -5.8 0.77 -4.41 3.31
-6.6 -4.4 -2.21 4.95 7.26 -1.38 5.8 -0.77 -4.41 -3.31
begin
var n:=ReadInteger('n=');
var (max,k,tmp):=(integer.MinValue,0,0);
loop n do begin
Read(tmp);
if tmp>max then (max,k):=(tmp,1)
else if tmp=max then k+=1
end;
Writeln('Максимум ',max,' встречен ',k,' раз(а)')
end.
Пример
n= 8
-6 -9 12 7 -5 12 10 -3
Максимум 12 встречен 2 раз(а)
- 04.07.2015 12:56
- thumb_up 9
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.