Дистанционная подготовка: Задача не решается, помогите
Задача не решается, помогите
от Дарья Куншина - Четверг 15 Май 2014, 11:14
  Вот задача, проходит 13 тестов и все, не знаю, что и делать...
var a: array[1..1000] of integer;
i,n,k: integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=2 to n do
if a[i]>a[i-1] then
k:=k+1;
writeln(k);
end.
Re: Задача не решается, помогите
от Григорий Резников - Четверг 15 Май 2014, 17:56
  А что за задача-то?