Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
junger
1 / 1 / 0
Регистрация: 22.05.2011
Сообщений: 9
#1

Найти номера тех элементов массива, которые больше своего правого соседа - Pascal ABC

22.05.2011, 15:47. Просмотров 637. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста решить.позарес как надо!!!

1) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов. Найденные номера выводить в порядке их возрастания.

2) Дан целочисленный массив A размера N,являющийся перестановкой. Найти количество инверсий в данной перестановке,т.е. таких пар Ai И Aj элементов в которых большее число находится слева от меньшего:Ai>Aj при i<j

4) Дан целочисленный массив размера N.Удалить из массива все одинаковые элементы, оставив их первые вхождения.

5) Дано целое число L (>L) и целочисленный массив размера N. Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением
http://www.cyberforum.ru/pascalabc/thread419143.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2011, 15:47
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти номера тех элементов массива, которые больше своего правого соседа (Pascal ABC):

Найти номера тех элементов массива, которые больше своего правого соседа, и количество таких элементов
1. Дан массив размера N. Найти номера тех элемонтов массива, которые больше...

Найти номера элементов массива, которые больше своего левого соседа
Всем доброго времени суток. Такая вот задача: Дан массив размера N. Найти...

Подсчитать количество тех элементов последовательности, которые больше своего левого соседа
С клавиатуры вводится последовательность целых чисел длиной N. Подсчитать...

Количество элементов массива, которые больше своего соседа слева
К сожалению, я совсем не умею работать в паскале. Может кто-то сможет мне...

Вывести номера тех чисел в наборе, которые меньше своего левого соседа
Дано целое число N и набор из N целых чисел. Вывести номера тех чисел в наборе,...

1
dedere
13 / 13 / 10
Регистрация: 19.05.2011
Сообщений: 24
22.05.2011, 18:35 #2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
n=10;
var
i,h:integer;
a:array [1..n] of integer;
begin
randomize;
h:=0;
for i:=1 to n do begin
    a[i]:=random(30);
    write(a[i],' ');
    end;
    writeln;
       
for i:=1 to n-1 do
    if a[i]>a[i+1] then begin
    inc(h);
    writeln('Элемент №',i,' больше своего правого соседа');
    end;
 
    writeln('В данном массиве ',h,' элементов больше своих правых соседей');
end.
Вторая задача идентична первой.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.05.2011, 18:35
Привет! Вот еще темы с решениями:

Вывести те элементы в наборе, которые меньше своего правого соседа, и количество К таких элементов
№1. дан набор ненулевых целых чисел; признак его завершения - число 0. вывести...

Series 20: Вывести те элементы в наборе, которые меньше своего правого соседа
Здравствуйте люди добрые, Вот и у меня настала практика по Pascal, 44 задачи я...

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

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые...


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

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

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