ЯЗЫК ПРОГРАММИРОВАНИЕ СС+
Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Напишите программу, которая выполняет выбраковку данных в массиве: если количество чётных элементов меньше, чем количество нечётных элементов, все чётные элементы заменяются на максимальный из них. Иначе все нечётные элементы заменяются на минимальный из них. Например, для исходного массива из восьми элементов:

7 1 3 2 14 5 9 6
программа должна вывести (по одному числу в строке) числа
7 1 3 14 14 5 9 14​

• процессор Socket-1155 Intel Core i3-2100, 3,1 ГГц — 4390 руб.;
• материнская плата Socket-1155 ASRock DDR3 mATX AC’97+LAN+ VGA — 1850 руб.;
• корпус компьютера с блоком питания мощностью 400 В — 2480 руб.;
• модули оперативной памяти объемом 8 Гбайт — 2010 руб.;
• жесткий диск объемом 500 Гбайт — 3100 руб.;
• видеокарта с объемом видеопамяти 2 Гбайта — 5880 руб.;
• мышь оптическая — 200 руб.;
• клавиатура — 180 руб.;
• монитор LCD, диагональ 20 дюймов — 5870 руб.;
• привод CD-RW — 830 руб.;
• модем — 940 руб.;
• звуковая карта и • сетевая карта 10/100/1000 Мбит/с не нужны так как в материнской плате они уже есть

Var k, s, i: integer;beginreadln(k);s:=k mod 10;i:=0;while k<>0 do begin
k:=k div 10;
if s<k mod 10 then begins:=k mod 10;i:=0;end;if s=k mod 10 theni:=i+1;end;writeln(i);end.
В переменной k вводим число, в переменной s храним максимальную цифру, в переменной i подсчитываем вхождение максимальной цифры в число

var k, s, i: integer;beginreadln(k);//вводим числоs:=k mod 10;//предполагаем что последняя цифра - максимальнаяi:=0;// инициализируем счетчик нулемwhile k<>0 do begin//цикл идет до тех пор пока не закончатся цифры в k
k:=k div 10;// отбрасываем цифру от числа
if s<k mod 10 then //если s < последней цифры kbegins:=k mod 10;//то меняем нашу максимальную цифру на новуюi:=0;// и сбрасываем счетчикend;if s=k mod 10 then// если цифра в числе равна максимальной цифреi:=i+1;//прибавляем 1 к счетчикend;writeln(i);//выводим количество вхождений максимальной цифры end.