Вот, написал на C# Можешь сравнить или просто скопировать using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace posledovatelnost { class Program { static void Main(string[] args) { int[] a = new int[6]; bool istrue = true; for (int i = 0; i <= 5; i++) { Console.Write("Введите элемент № " + (i+1).ToString() + " >>> "); a = int.Parse(Console.ReadLine()); } Console.WriteLine("=================================="); for (int i = 1; i <= 5; i++) { if (a[i-1]<a) { istrue = false; break; } } if (istrue) { Console.WriteLine("Последовательность строго убывающая!"); } else { Console.WriteLine("Последовательность не убывающая!"); } Console.ReadLine(); } } }
на паскальное не смотрел а Сишное --- int flag = 0; for (int i = 0; i < 5 && (!flag); i++){ if (A <= A[i + 1]) flag = 1; } --- 0-строго у тебя получается мигалка 0-1 в зависимости от последнего сравнения