Дан целочисленный массив A размера N. Найти номера тех элементов массива, которые больше

своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их

возрастания.

На Паскале

Question

Информатика

Варя

5 мая, 08:22

Дан целочисленный массив A размера N. Найти номера тех элементов массива, которые больше

своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их

возрастания.

На Паскале

+4

Ответы (1)

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

Эллада · Answer 1

Const sz=1000;

var

a: array [1 ... sz] of integer;

i, j, n, k:integer;

begin

write ('количество чисел') ;

read (n) ;

for i:=1 to n do begin

read (a[i]) ;

end;

for i:=1 to n-1 do

begin

if (a[i]>a[i+1]) then

writeln (i) ;

end;

end.

надеюсь это что вам нужно