0 / 0 / 0
Регистрация: 30.09.2010
Сообщений: 17
1

Модуль разности их индексов и модуль разности самих чисел равны единице. Найти количество пар таких чисел.

05.03.2011, 18:39. Показов 1926. Ответов 3
Метки нет (Все метки)

Данная линейная таблица размерности N. Назовем «близкими» такие числа, модуль разности их индексов и модуль разности самых чисел равны единице. Найти количество пар таких чисел.
0

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

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.03.2011, 18:39
Ответы с готовыми решениями:

Найти среди заданных чисел два таких, модуль разности которых имеет наименьшее значение
Дано 5 различных целых чисел. Найти среди них два числа, модуль разности которых имеет наименьшее...

Найти среди чисел X1,X2 ...Xn два числа, модуль разности которых имеет наименьшее значение
Даны: целое число n, действительные числа X1, X2,X3....Xn. Найти среди чисел X1,X2 ...Xn два...

Среди заданных чисел найти количество пар чисел, модуль разности которых равен заданному числу
Дана строка из n целых чисел. Найти кол-во пар чисел модуль разности которых равен d. ВХОДНЫЕ...

В двумерном массиве A(4,4) произвольных чисел вычислить сумму элементов, модуль разности индексов которых равен 2.
В двумерном массиве A(4,4) произвольных чисел вычислить сумму элементов, модуль разности индексов...

3
37 / 32 / 9
Регистрация: 04.03.2011
Сообщений: 120
06.03.2011, 01:31 2
Держи:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var
  a: array [1..100] of integer;
  i, n, k: byte;
 
begin
  randomize;
  repeat
    write('Задайте размер массива ');
    readln(n);
  until n in [1..100];
  writeln('Массив:');
  for i := 1 to n do
  begin
    read(a[i]);
  end;
  writeln;
  for i := 1 to n - 1 do
  begin
    if (abs(a[i + 1] - a[i]) = 1) then
      inc(k);
  end;
  if k > 0 then
    writeln('Вмассиве ', k, ' искомых пар')
  else
    writeln('Таких пар нет');
end.
1
0 / 0 / 0
Регистрация: 30.09.2010
Сообщений: 17
06.03.2011, 17:32  [ТС] 3
СПС большое!
0
37 / 32 / 9
Регистрация: 04.03.2011
Сообщений: 120
07.03.2011, 12:32 4
VsHrom, всё работает правильно? А то я сомневался)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
07.03.2011, 12:32

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

Найти количество всех двузначных чисел, которые равны разности между суммой кубов и суммой квадратов цифр
Здравствуйте! проверьте ошибки пожалуйста, задача не выходит. Найти количество всех двузначных...

Найти количество всех двузначных чисел, которые равны разности между суммой кубов и суммой квадратов цифр самого числа
Здравствуйте помогите с задачей. Найти количество всех двузначных чисел, которые равны разности...

Найти количество элементов матрицы, модуль разности между которыми и средним арифметическим матрицы больше 1
Задача : Найти количество элементов вещественной матрицы a, модуль разности между которыми и...

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


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

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

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