Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.92/13: Рейтинг темы: голосов - 13, средняя оценка - 4.92
ZaRinKa97
1 / 1 / 0
Регистрация: 26.04.2014
Сообщений: 121
1

Найти индексы тех элементов массива, значения которых больше значения предыдущего элемента

01.05.2014, 09:12. Просмотров 2409. Ответов 5
Метки нет (Все метки)

Дан массив целых чисел.Найти индексы тех элементов массива, значения которых больше значения предыдущего элемента(начиная со второго).
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.05.2014, 09:12
Ответы с готовыми решениями:

Вывести индекс тех элементов амссива, значения которых больше значения предыдущего элемента
На паскале Дан массив целых чисел,состоящий из 10 элементов.Заполнить его с...

Подсчитать количество элементов массива, значения которых больше значения предыдущего элемента
Подсчитать кол-во элементов значения которых больше значения предыдущего...

Вывести индексы тех элементов массива, значения которых больше заданного числа А
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры....

Вывести индексы тех элементов массива, значения которых больше заданного числа А
Дан массив целых чисел, состоящий из 10 элементов. Заполнить его с клавиатуры....

Вывести индексы тех элементов, значения которых больше заданного числа А
))))))

5
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,832
Записей в блоге: 1
01.05.2014, 09:22 2
Pascal
1
2
For i:=2 to n do
 if A[i-1]<A[i] then write(i,' ');
0
ZaRinKa97
1 / 1 / 0
Регистрация: 26.04.2014
Сообщений: 121
09.05.2014, 09:42  [ТС] 3
дан массив целых чисел.найти индекы тех элементов массива, значения которых больше значения предыдущего элемента(начиная со второго).
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program pr3;
uses crt;
var a:array [1..100] of integer;
k,n,i:integer;
begin
clrscr;
write('vvedite kolichestvo elementov massiva=');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(45)-20;
writeln('ishodni massiv');
for i:=1 to n-1 do
write(a[i]:6);
writeln;
for i:=2 to n do
if a[i+1]>a[i] then 
for i:=1 to n do
write(a[i]:6);
writeln;
readln;
end.
0
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,832
Записей в блоге: 1
09.05.2014, 09:45 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program pr3;
uses crt;
var a:array [1..100] of integer;
k,n,i:integer;
begin
clrscr;
write('vvedite kolichestvo elementov massiva=');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(45)-20;
writeln('ishodni massiv');
for i:=1 to n do
 write(a[i]:6);
writeln;
for i:=1 to n-1 do
 if a[i+1]>a[i] then 
  write(i:3);
writeln;
readln;
end.
0
ZaRinKa97
1 / 1 / 0
Регистрация: 26.04.2014
Сообщений: 121
09.05.2014, 13:45  [ТС] 5
получается, программа находит "индексы тех элементов массива, значения которых больше значения предыдущего элемента" да?
0
CodeR
Фрилансер
3384 / 2785 / 3000
Регистрация: 08.02.2012
Сообщений: 6,832
Записей в блоге: 1
09.05.2014, 13:46 6
Цитата Сообщение от ZaRinKa97 Посмотреть сообщение
получается, программа находит "индексы тех элементов массива, значения которых больше значения предыдущего элемента" да?
а по результату выполнения не понятно?Да,именно так.
0
09.05.2014, 13:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2014, 13:46

Знайти индексы тех элементов, значения которых больше заданного числа А.
Дано масив целых чисел.Знайти индексы тех элементов, значения которых больше...

Вывести индексы тех элементов массива, значения которых по модулю меньше заданного числа А
Помогите решить с процедурой или функцией. Заранее спасибо))) 1. Дан...

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


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

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

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