Вопрос по информатике:
Помогите, пожалуйста, с 2 задачами по информатике. Очень нужно <3
1. Заполнить массив из 20 элементов заполнить случайными числами и выведите на экран два самых больших числа массива с их индексами
2. Для некоторого массива ( например из 20 элементов ) найти номер элемента, наименее отличающегося от среднего арифметического всех его элементов.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 10.09.2018 02:06
- Информатика
- remove_red_eye 5636
- thumb_up 13
Ответы и объяснения 1
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var max_1:=a.Max;
writeln('max_1 = ',max_1,' i_Max_1 = ',a.IndexMax+1);
var max_2:=a.Where(x->xmax_1).Max;
writeln('max_2 = ',max_2,' i_Max_2 = ',a.IndexOf(max_2)+1);
end.
Пример:
58 10 76 12 22 38 63 30 16 81 84 58 65 20 29 31 18 83 12 38
max_1 = 84 i_Max_1 = 11
max_2 = 83 i_Max_2 = 18
2.
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,10,90); a.Println;
var sr:=a.Average;
writeln('Среднее = ',sr);
var m:=a.MinBy(x->abs(x-sr));
writeln('Искомый номер = ',a.IndexOf(m)+1);
end.
Пример:
74 80 55 12 74 49 86 32 34 68 29 82 14 35 15 81 18 63 38 75
Среднее = 50.7
Искомый номер = 6
- 11.09.2018 08:23
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.