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

Заполнить массив случайными числами в диапазоне 1000..2000 и подсчитать число элементов,...

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

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

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

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

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

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

После проведенного совещания с другими специалистами нашего сервиса, мы склонны полагать, что правильный ответ на заданный вами вопрос будет звучать следующим образом:

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=10;

Var
 ar:array[1..n] of integer;
 i,k:integer;
begin
 randomize;
 k:=0;
  writeln('Array:');
   for i:=1 to n do
    begin;
     ar[i]:=random(1000,2000);
     write(ar[i]:6);
     ar[i]:=ar[i] div 10;
     if not odd(ar[i] mod 10) then inc(k);
    end;
  writeln;
  writeln('Res=',k);
end.

Пример работы кода:
Array:
  1812  1641  1666  1305  1624  1385  1463  1376  1941  1188
Res=8


-------------------

Const n=5;
var
a: array[1..n] of integer;
i, k: integer;
begin
randomize;
for i:=1 to n do //заполняем массив
a[i] := random(1000) + 1001;
k:=0;
for i:= 1 to n do
if (a[i] div 10) mod 2 = 0 then //если 2я c конца цифра элемента четная
inc(k); //то увеличиваем k на 1
writeln(k);
end.



НЕСКОЛЬКО СЛОВ ОБ АВТОРЕ ЭТОГО ОТВЕТА:

Работы, которые я готовлю для студентов, преподаватели всегда оценивают на отлично. Я занимаюсь написанием студенческих работ уже более 4-х лет. За это время, мне еще ни разу не возвращали выполненную работу на доработку! Если вы желаете заказать у меня помощь оставьте заявку на этом сайте. Ознакомиться с отзывами моих клиентов можно на этой странице.

Шарапова Милослава Владимировна - автор студенческих работ, заработанная сумма за  прошлый месяц 77 800 рублей. Её работа началась с того, что она просто откликнулась на эту вакансию

ПОМОГАЕМ УЧИТЬСЯ НА ОТЛИЧНО!

Выполняем ученические работы любой сложности на заказ. Гарантируем низкие цены и высокое качество.

СМОТРЕТЬ ЦЕНЫ

Деятельность компании в цифрах:

Зачтено оказывает услуги помощи студентам с 1999 года. За все время деятельности мы выполнили более 400 тысяч работ. Написанные нами работы все были успешно защищены и сданы. К настоящему моменту наши офисы работают в 40 городах.

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

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

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

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

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

НОВЫЕ ОТВЕТЫ

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