Сrandom(5) задать 10 целых чисел и выяснить , сколько - вопрос №10395613510 от JustKotOneLove 18.11.2020 20:34

Question

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

JustKotOneLove · Answer

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.