UCHEES.RU - помощь студентам и школьникам

Заполните массив случайными числами в [0,1000] и вычислите разность максимального среди...


В 7:30 поступил вопрос в раздел Информатика, который вызвал затруднения у обучающегося.

Вопрос вызвавший трудности

Заполните массив случайными числами в [0,1000] и вычислите разность максимального
среди элементов, имеющих чётные значения, и максимального среди элементов, имею-
щих нечётные значения, в заданном целочисленном массиве из 30 положительных эле-
ментов (в предположении, что в массиве есть и чётные, и нечётные элементы)

Ответ подготовленный экспертами Учись.Ru

Для того чтобы дать полноценный ответ, был привлечен специалист, который хорошо разбирается требуемой тематике "Информатика". Ваш вопрос звучал следующим образом:

Заполните массив случайными числами в [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 городах.

РАЗДЕЛЫ САЙТА

Ответы на вопросы - в этот раздел попадают вопросы, которые задают нам посетители нашего сайта. Рубрику ведут эксперты различных научных отраслей.

Полезные статьи - раздел наполняется студенческой информацией, которая может помочь в сдаче экзаменов и сессий, а так же при написании различных учебных работ.

Красивые высказывания - цитаты, афоризмы, статусы для социальных сетей. Мы собрали полный сборник высказываний всех народов мира и отсортировали его по соответствующим рубрикам. Вы можете свободно поделиться любой цитатой с нашего сайта в социальных сетях без предварительного уведомления администрации.

ЗАДАТЬ ВОПРОС

НОВЫЕ ОТВЕТЫ

ПОХОЖИЕ ВОПРОСЫ