Дан линейный массив целых чисел. Проверьте, является ли он упорядоченным по убыванию - Pascal ABC
Формулировка задачи:
Одномерные массивы
Дан линейный массив целых чисел. Проверьте, является ли он упорядоченным по убыванию.
Помогите пожалуйста
Решение задачи: «Дан линейный массив целых чисел. Проверьте, является ли он упорядоченным по убыванию»
textual
Листинг программы
program z; var i,f,n,m,j:integer; a:array [1..100] of integer; begin write('Êîë-ГўГ® ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*: '); readln(n); writeln('Ââîä Г¬Г*Г±Г±ГЁГўГ*'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln('Âûâîä ýëåìåГ*òîâ Г¬Г*Г±Г±ГЁГўГ*'); for i:=1 to n do write(a[i],' '); writeln; f:=0; m:=1; for i:=m to n do for j:=m to n do begin if a[i]<a[j] then begin f:=1; break; end; if a[i]>a[j] then m:=m+1; end; if f=0 then writeln('ÝëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* óïîðÿäî÷åГ*Г*Г» ГЇГ® óáûâГ*Г*ГЁГѕ') else writeln('ÝëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГўГ* Г*ГҐ óïîðÿäî÷åГ*Г*Г» ГЇГ® óáûâГ*Г*ГЁГѕ'); end.