UCHEES.RU - помощь студентам и школьникам
В 7:30 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.
Заполните массив случайными числами в [0,1000] и вычислите разность максимального
среди элементов, имеющих чётные значения, и максимального среди элементов, имею-
щих нечётные значения, в заданном целочисленном массиве из 30 положительных эле-
ментов (в предположении, что в массиве есть и чётные, и нечётные элементы)
Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом: Заполните массив случайными числами в [0,1000] и вычислите разность максимального
среди элементов, имеющих чётные значения, и максимального среди элементов, имею-
щих нечётные значения, в заданном целочисленном массиве из 30 положительных эле-
ментов (в предположении, что в массиве есть и чётные, и нечётные элементы)
После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:
Var
A:array[1..30] of integer;
i,Mc,Mn:integer;
Begin
For i := 1 to 30 do
Begin
A[i]:=random(1001);
if A[i] mod 2 = 0 then Mc:=A[i]
else Mn:=A[i];
Write(A[i],' ');
End;
WriteLn;
For i:= 1 to 30 do
if (Mc else if (Mn 0) then Mn:=A[i];
WriteLn(Mc,' - ',Mn,' = ',Mc-Mn);
End.
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
//Внимание! Если программа не работает, обновите версию!
begin
writeln('исходный массив:');
var a:=ArrRandom(30,0,1000).Println();
writeln('разность: ',a.Where(x->x mod 2=0).Max()-a.Where(x->x mod 2<>0).Max());
end.
НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:
Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.
Соколова Малика Геннадиевна - автор студенческих работ, заработанная сумма за прошлый месяц 50 392 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию
ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!
Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.
Деятельность компании в цифрах:
Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.
РАЗДЕЛЫ САЙТА
Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.
Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.
Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.
ЗАДАТЬ ВОПРОС
НОВЫЕ ОТВЕТЫ
ПОХОЖИЕ ВОПРОСЫ