Pascal ABC

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

Question

Информатика

Сашура

13 марта, 02:34

Pascal ABC

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

+4

Ответы (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

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