Дан линейный массив целых чисел. Проверьте, является ли он упорядоченным по убыванию - 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.

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы