Написать программу, которая проверяет, является введенная последовательность возрастающей.
Решение:
1
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program arrays_8;
uses crt; var n, i, j: integer; b, c: boolean; A: array[1..100] of integer; begin clrscr; randomize; write(‘Количество элементов > ‘); read(n); for i:=1 to n do begin write(i, ‘ элемент > ‘); read(A[i]); end; b:=true; c:=false; for i:=1 to n—1 do begin if A[i+1]<A[i] then b:=false; for j:=2 to n do if A[i]<>A[j] then c:=true; end; if b and c then write(‘Это возрастающая последовательность’) else write(‘Это не возрастающая последовательность’); readkey; end. |