X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var x:=ReadReal('x=');
var y:=(x*x-7*x+10)/(x*x-8*x+12)+power(x,0.8);
Writeln('y=',y)
end.
<span>Индекс последнего отрицательного элемента массива.
Ответ: 5</span>
begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.