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

Question

Информатика

Феликс

3 августа, 16:04

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

+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.