Pascal ABC

найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

Question

Информатика

Артём

7 марта, 18:54

Pascal ABC

найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

+2

Ответы (1)

Знаете ответ на вопрос?

Каля · Answer 1

Uses crt;

var a:array [1 ... 100] of byte; a, k, i, n:byte;

begin

read (i) ; a:=0;

for k:=1 to i do begin

read (n) ;

a[k]:=n;

end;

for k:=1 to i-1 do

if a[k]
write (a) ;

end.

Pascal ABCнайти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего

Pascal ABC

найти количество пар соседних элементов массива, в которых предыдущий элемент меньше последующего