Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
voevodaa
4 / 4 / 1
Регистрация: 21.11.2012
Сообщений: 86
#1

Найти тройки чисел, удовлетворяющие условию

02.12.2012, 05:32. Просмотров 714. Ответов 4
Метки нет (Все метки)

Дана таблица целых чисел a1, a2, ..., an. Найти тройки чисел аi-1, ai, ai+1, удовлетворяющие условию:
а вводится с клавиатуры!
0
Изображения
 
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.12.2012, 05:32
Ответы с готовыми решениями:

Найти члены последовательности, удовлетворяющие условию
что не так в этой программе в этой программе Даны натуральные числа n,...

Найти члены последовательности, удовлетворяющие условию
Часть 1. Создание функции Даны натуральные числа n, a1,…,an, где n≤2500....

Найти все трехзначные числа, удовлетворяющие условию
Находит все трехзначные числа qwe такие что qwe= q! + w! + e!

Найти все двузначные числа, удовлетворяющие условию
.Найти все такие двузначные числа, что сумма каждого такого числа и числа с...

Найти все простые числа, удовлетворяющие условию
Даны натуральные числа a и b (a<b). Найти все простые числа, удовлетворяющие...

4
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 1
02.12.2012, 08:19 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Var A:array[1..100] of real;
    i,n:byte;
Begin
    write('Введите n: ');readln(n);
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');
      readln(A[i]);
    End;
    For i:=2 to n-1 do
     if A[i]<=((A[i+1]+A[i-1])/2) then writeln(A[i]:6:2,A[i-1]:6:2,A[i+1]:6:2);
    readln;
End.
1
voevodaa
4 / 4 / 1
Регистрация: 21.11.2012
Сообщений: 86
02.12.2012, 08:46  [ТС] #3
можешь сказать что делает тип byte, для чего он нужен!
0
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,687
Записей в блоге: 1
02.12.2012, 08:47 #4
Цитата Сообщение от voevodaa Посмотреть сообщение
можешь сказать что делает тип byte, для чего он нужен!
да тип byte - это целочисленный тип может принимать значения [0..255] можешь поменять на integer если хочешь
0
voevodaa
4 / 4 / 1
Регистрация: 21.11.2012
Сообщений: 86
02.12.2012, 08:55  [ТС] #5
ясненько, спасибо!
 Комментарий модератора 
Правило форума 5.6. Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста.
0
02.12.2012, 08:55
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.12.2012, 08:55

Найти в массиве подряд идущие элементы, удовлетворяющие условию
Помогите пожалуйсто решить задачку, не могу сообразить:wall: Создать 2...

Найти все натуральные числа, меньшие заданного, удовлетворяющие условию a^2+b^2=c^2
Помогите, пожалуйста. После ввода строчки c:=sqrt(sqr(a)+sqr(b)); перестаёт...

Ввести строку и найти в ней числа удовлетворяющие условию "mod5"
вписать в строку условие &quot;mod5&quot; нужно ввести строку и найти в ней числа...


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

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

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