Pascal ABC

найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

Uses crt;
var a:array [1..100] of byte;a, k,i,n:byte;
begin
read(i); a:=0;
for k:=1 to i do begin
read(n);
a[k]:=n;
end;
for k:=1 to i-1 do
if a[k]write(a);

end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.