Вопрос Помогите с кодом, язык С или Pascal

[45335]

Пропущен какой-то оператор. Скажите какой???

Вот код:

Для С:

//А - целочисленный массив с индексами от 0 до 5

// переменные flag, i - целые

flag = 1;

for (i = 0; i < 5; i++){

if (A <= A[i + 1]) {

flag = 0;

;

}

else flag = 1;

}

if (flag == 0)

printf("Не убывает строго");

else

printf("Убывает строго");

Для Pascal:

//А - целочисленный массив с индексами от 0 до 5

// переменные flag, i - целые

flag := 1;

for i := 0 to 4 do

begin

if (A <= A[i + 1]) then

begin

flag := 0;

;

end

else flag := 1;

end;

if flag = 0 then

writeln('Не убывает строго')

else

writeln('Убывает строго');

Заранее всем ОГРОМНОЕ спасибо. Я в этих языках не шарю, но очень надо.

 

[ван]

Вот, написал на 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(); } } }

 

[ArteMQa]

break И else лишний, он тут не нужен

 

[Тим12345]

на паскальное не смотрел а Сишное --- int flag = 0; for (int i = 0; i < 5 && (!flag); i++){ if (A <= A[i + 1]) flag = 1; } --- 0-строго у тебя получается мигалка 0-1 в зависимости от последнего сравнения

 

[прас]

А что, собственно, вы сделать хотите?

 

[Святослав]

После flag := 0; стоит лишняя ";"