Pascal ABC найти количество пар соседних элементов массива, в которых предыдущий элемент...

Question

Pascal ABC

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

Answer 1

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.