Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива возрастающую


последовательность
последовательность

PascalABC:

var a:array of real;   
      k,i,n:integer;   
      x:real;
begin
write(‘Задайте размер массива = ‘);readln(n);
setlength(a,n);
for i:=0 to n-1 do begin
readln(a[i]);
if (i>0) and (k=0) and (x>a[i]) then k:=1;
x:=a[i];
end;
if k=1 then writeln(‘Элементы массива не являются возрастающей последовательностью’)
else writeln(‘Элементы массива являются возрастающей последовательностью’);
end.

Добавить комментарий

Ваш e-mail не будет опубликован.