Проверить является ли заданный одномерный числовой массив упоряжоченным по возрастанию

Question

Информатика

Петюка

12 декабря, 13:47

Проверить является ли заданный одномерный числовой массив упоряжоченным по возрастанию

+5

Ответы (1)

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

Павлич · Answer 1

Const n=10;

var a: array [1 ... n] of integer;

i, z:integer;

begin

z:=1;

for i:=1 to n do

begin

readln (a[i]) ;

end;

for i:=1 to n-1 do

if a[i]>a[i+1] then z:=0;

if z=1 then writeln ('yes') else writeln ('no')

end.