var a: array [1..10000] of integer;
n, i, k: integer;
begin
readln;
read(a[1]);
k := 0;
for i := 2 to n do
begin
read(a);
if a > a[i - 1] then inc(k)
end;
readln;
writeln(k);
readln
end.
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.
;