Срочно решите! Дан одномерный массив, который содержит не более 10 целых чисел. Вывести...

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]

  then write(a,' ');

end;