Question

Срочно решите! 

Дан одномерный массив, который содержит не более 10 целых чисел. Вывести только те элементы, которые меньше предыдущего

Answer 1

var i:integer;

a:array[1..10]of integer;

begin

for i;=1 to 10 do

read(a[i]);

for i:=1 to 10 do

 if a[i]<a[i-1]

  then write(a,' ');

end;