Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
junger
1 / 1 / 0
Регистрация: 22.05.2011
Сообщений: 9
#1

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

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

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

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

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

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

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

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

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

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

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

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

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

1
dedere
13 / 13 / 5
Регистрация: 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
Привет! Вот еще темы с ответами:

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

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

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

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


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

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

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