С помощью random(5) задать 10 целых чисел и выяснить , сколько пар соседних чисел, где первое число меньше второго. На экран вывести сами числа и на след. строке количество.​



Пожалуйста, очень надо, завтра последний день сдачи )

Ответ:

Program n3;  

var q,w:integer;  

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

begin  

for q:=1 to 10 do begin

a[q]:=random(5);  

write(a[q],' ');

end;

for q:=1 to 9 do begin

 if a[q]>a[q+1] then

   w:=w+1;

 end;

 writeln(' ');

 writeln(w);

end.

Объяснение: