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

Question

Информатика

Федосия

12 сентября, 09:02

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

+3

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