Напишите программу )) дан массив действительных чисел.среди них есть равные .найти первый максимальный элемент массива и заменить его нулём

program num1; uses crt; var x: array[1..10] of real; max: real; i : integer; begin clrscr; for i: =1 to 10 do begin write('x[',i,']='); readln(x[i]) end; max: =x[1]; for i: =1 to 10 do if x[i]> =max then max: =x[i]; writeln('max=',max: 3: 1); for i: =1 to 10 do if x[i]=max then begin x[i]: =0; break end; for i: =1 to 10 do write(' *',x[i]: 3: 1,'* '); end.

n, x = map(int, input().split())

array = ['0'] + list(i for i in range(1, n+1))

while array[1] != x:

   if array.index(x) % 2 == 0:

       for g in range(1, len(array)):

           if g % 2 != 0:

               array[g] = ''

       print("стереть все числа, стоящие на нечётных позициях")

   else:

       for g in range(1, len(array)):

           if g % 2 == 0:

               array[g] = ''

       print("стереть все числа, стоящие на чётных позициях")

   array = list(filter(bool, array))

// Первая программа

program One;

var a, b: Integer;

begin

write('Введите числитель: ');

read(a); {ввод числителя}

write('Введите знаменатель: ');

read(b); {ввод знаменателя}

{Правильной называется дробь, у которой модуль числителя меньше модуля знаменателя,

поэтому проверяем это условие}

if abs(a)<abs(b) then

 {Если условие выполняется, то пишем, что дробь правильная}

 writeln('Дробь правильная.')

else

 {В противном случае пишем, что дробь неправильная}

 writeln('Дробь неправильная.')

end.

// Вторая программа

program Two;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

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

Есть остаток — число нацело не делится; остаток равен 0 -- число делится нацело}

if (a mod b) = 0 then

 {Если остатка нет, то пишем, что первое число делится нацело на второе}

 writeln('Первое число делится на второе.')

else

 {В противном случае пишем, что первое число не делится нацело на второе}

 writeln('Первое число не делится на второе.')

end.

// Третья программа

program Three;

var a, b: Integer;

begin

write('Введите первое число: ');

read(a); {ввод первого числа}

write('Введите второе число: ');

read(b); {ввод второго числа}

{Если второе число меньше первого -- то будем выводить его,

так как в ином случае первое и второе числа равны (и тогда мы можем вывести

любое из них, они ж одинаковые), либо меньшее число -- первое, и мы выведем его}

write('Наименьшее число: ');

if (a > b) then

 {Если второе число меньше первого, его и выводим}

 writeln(b)

else

 {В противном случае выводим первое число}

 writeln(a)

end.  

Объяснение:

Пояснения находятся в фигурных скобках.