Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Марусяя
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 15
1

Составить программу, которая определяет количество инверсий в массиве

13.04.2010, 18:48. Просмотров 834. Ответов 6
Метки нет (Все метки)

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

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var
        a:array[1..20] of integer;
  i,s:integer;
 
begin
    clrscr;
    s:=0;
    for i:=1 to 20 do
      begin
        writeln('vvodite ',i,' chislo');
        readln(a[i]);
      end;
    for i:=1 to 19 do
        if a[i]>a[i+1] then
           s:=s+1;
    for i:=1 to 20 do
        write(a[i],' ');
    writeln;
    writeln(s);
          readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.04.2010, 18:48
Ответы с готовыми решениями:

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

Составить программу, которая определяет количество положительных элементов до последнего нулевого элемента
РЕБЯТ,ППОМОГИТЕ ПОЖАЛУЙСТА 1)Составить программу для нахождения суммы...

Составить функцию, которая в одномерном массиве D определяет первый от конца положительный элемент
Составить функцию, которая в одномерном массиве D определяет первый от конца...

Составить программу с функцией, которая определяет, колинеарны ли вектора
Даны два вектора. Составить программу с булевой функцией, которая определяет,...

Составить программу, которая определяет все 4-значные числа на интервале
Составить программу REBUS, которая определяет все 4-значные числа на интервале...

6
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
13.04.2010, 18:51 2
что значит?
Цитата Сообщение от Марусяя Посмотреть сообщение
но и для всех
0
Марусяя
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 15
13.04.2010, 18:59  [ТС] 3
ну чтобы не только соседние инверсии считало
Но и подряд идущие
например первый с последним
второй с четвертым ну и т.д
короче чтобы все считало
0
DEMAN13
8 / 8 / 7
Регистрация: 25.03.2010
Сообщений: 32
13.04.2010, 19:00 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Z;
uses crt;
var A:array [1..20] of integer;
i,j,k,n:integer;
begin
clrscr;
     writeln ('Vvedi massiv');
     readln (n);
                k:=0;
                for i:=1 to n-1 do
                for j:=i+1 to n do
     if A[i]>A[j] then
                      k:=k+1;
writeln ('k=',k:3);
readln;
end.
попробуй так.....
0
Марусяя
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 15
13.04.2010, 19:09  [ТС] 5
Все время 0 выдает
0
DEMAN13
8 / 8 / 7
Регистрация: 25.03.2010
Сообщений: 32
13.04.2010, 19:13 6
введи около 5-6 чисел
0
Марусяя
0 / 0 / 0
Регистрация: 13.04.2010
Сообщений: 15
13.04.2010, 19:15  [ТС] 7
зачем мне 5-6,если мне 20 чисел нужно ввести
0
13.04.2010, 19:15
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
13.04.2010, 19:15

Написать программу, которая определяет наличие в массиве хотя бы одного элемента, который равен нулю
Задание гласит: Дано массив размером 2x4 с элементами действительного типа....

Составить программу, которая определяет первое отрицательное значение функции y= x - sin x на заданном интерва
Составить программу, которая определяет первое отрицательное значение функции...

Составить программу, которая определяет для двух вводимых натуральных чисел M и N их наибольший делитель
Задание 1 Вычислить для треугольника ABC все стороны, все углы (в градусной...


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

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

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