Question

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

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

Answer 1

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.