Question

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

Answer 1

Ответ:

Program n3;  

var q,w,a,z:integer;  

begin  

for q:=1 to 10 do begin

a:=random(5);  

write(a,' ');

if z<a then begin

   w:=w+1;

   end;

z:=a;

end;

 writeln(' ');

 writeln(w-1);

end.

Объяснение: