Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
lesso
1

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

25.11.2013, 20:54. Просмотров 336. Ответов 1
Метки нет (Все метки)

Составить прогрумму, определяющую во входном массиве количество комбинаций, состоящих из трех следующих подряд по возрастанию чисел. Входной массив чисел рамзмером[0..20] вводить из файла INPUT
uses crt;
var
Pascal
1
2
3
4
5
6
7
8
9
10
 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.
не уверен в правильности
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.11.2013, 20:54
Ответы с готовыми решениями:

Подсчитать количество пар следующих подряд равных чисел
в последовательности чисел,вводимых с клавиатуры , подсчитать количество пар следующих подряд...

Определить количество чисел в наиболее длинной последовательности из подряд следующих нулей
Дана последовательность из 100 целых чисел. Определить количество чисел в наиболее длинной...

Найти количество N-значных чисел, состоящих из цифр 1 и 2, не содержащих три подряд идущих одинаковых цифры
Здравствуйте! Вот еще одна задача с E-olymp (№ 12). К сожалению, только 67% (один - неправильный...

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

1
867 / 210 / 91
Регистрация: 21.10.2012
Сообщений: 482
26.11.2013, 08:34 2
строка 5:
Цитата Сообщение от lesso Посмотреть сообщение
a[i+1]<a[i+1]
Сравниваете одно и тоже число, само с собой. И "k" желательно обнулить перед циклом.

строка 4: i:=1
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.11.2013, 08:34

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

В целочисленном массиве определить количество серий, состоящих из квадратов натуральных чисел
В целочисленном массиве определить количество серий, состоящих из квадратов нату-ральных чисел.

В целочисленном массиве определить количество серий, состоящих из квадратов натуральных чисел.
В целочисленном массиве определить количество серий, состоящих из квадратов натуральных чисел. ...

В целочисленном массиве определить количество серий, состоящих из квадратов натуральных чисел
В целочисленном массиве определить количество серий, состоящих из квадратов натуральных чисел.

найти количество упорядоченных по возрастанию троек подряд идущих чисел
В файл записана последовательность целых чисел (каждое число на отдельной строке). Их не более...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.