Составить прогрумму, определяющую во входном массиве количество комбинаций, состоящих из трех следующих подряд по возрастанию чисел

25.11.2013, 20:54. **Показов** 464. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Составить прогрумму, определяющую во входном массиве количество комбинаций, состоящих из трех следующих подряд по возрастанию чисел. Входной массив чисел рамзмером[0..20] вводить из файла INPUT
uses crt;
var

Pascal

 a:array[1..20] of integer;
    i,k:integer;
        begin
        for i:=0 to 18 do
                if(a[i]<a[i+1])and(a[i+1]<a[i+1]) then
                    k:=k+1;
                /*else writeln(':-('); типа если комбинация не подходит под условие, то грустный смайлик*/
        writeln('k = ',k);
    readln;
    end.

не уверен в правильности

@markiza-inc · 26.11.2013, 08:34

строка 5:

Сообщение от lesso

a[i+1]<a[i+1]

Сравниваете одно и тоже число, само с собой. И "k" желательно обнулить перед циклом.

строка 4: i:=1

@markiza-inc 913 / 240 / 100 Регистрация: 21.10.2012 Сообщений: 580
	26.11.2013, 08:34	2
	строка 5: Сообщение от lesso a[i+1]<a[i+1] Сравниваете одно и тоже число, само с собой. И "k" желательно обнулить перед циклом. строка 4: i:=1 0