Очень Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажа-

тием клавиши . Признаком конца последовательности является число 0.

Напишите программу, которая выводит на экран:

a) сумму и среднее арифметическое четных чисел;

b) сумму и среднее арифметическое нечетных чисел.

2)Напишите программу, которая переводит десятичные числа 1, 5, 10, 50, 100, 500 и 1000,

считываемые с клавиатуры, в римские.

3) Вычислите сумму первых n элементов:

Указание. Используйте внутри цикла оператор if odd(...) then ... else ...

Средства массовой информации играют очень важную роль в нашей жизни. Они информируют людей о различных событиях, которые происходят или могут произойти. Они также развлекают людей и сделать их жизнь лучше. Но самое главное, что газеты, радио и телевидение приносят людям, — это информация. В наши дни очень важно получать полную и точную информацию. Те телевизионные программы, радиопередачи и газеты, которые обеспечивают надежной информацией, всегда популярны. Сенсационные события, такие как преступления, природные катастрофы или необычные происшествия, всегда очень интересны. Вот почему многие газеты и телевизионные программы рассказывают о них наряду с серьезной информацией. Обычно ежедневные средства массовой информации рассказывают о международных, государственных или местных новостях. В них также освещаются такие темы, как здравоохранение, искусство и другие. Во многих газетах есть статьи, где даются разные советы, аннотации книг, комиксы, кроссворды и так далее. В большинстве из них есть различные картинки, фотографии, иллюстрации. Средства массовой информации также привлекают внимание общественности к самым насущным проблемам в обществе. Это могут быть проблемы здравоохранения, образования, транспорта или даже коррупции в правительстве. Много внимания уделяется средствами массовой информации рекламе. Она людям сориентироваться в разнообразии фирм и магазинов, которые предлагают свои товары и услуги. В целом средства массовой информации нам сформировать наше мнение по различным событиям, обеспечивают нас информацией о том, что происходит в обществе, а также являются средством развлечения

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  var n:=ReadInteger('Количество элементов в массиве: ');
  var a:=ArrRandom(n,-50,50);
  a.Println(',');
  Writeln('Четные элементы: ');
  var i:=1;
  while i<n do begin Write(a[i],' '); Inc(i,2) end;
  Writeln;
  Writeln('Нечетные элементы: ');
  i:=0;
  while i<n-1 do begin Write(a[i],' '); Inc(i,2) end;
  Writeln
end.

Тестовое решение:
Количество элементов в массиве:  10
15,-18,-29,-25,46,21,-8,-17,-9,15
Четные элементы:
-18 -25 21 -17 15
Нечетные элементы:
15 -29 46 -8 -9