Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 26.02.2015
Сообщений: 4

Найти индексы двух элементов массива по условию

26.02.2015, 09:17. Показов 1199. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Дан одномерный целочисленный массив А, состоящий из N элементов, N – заданное натуральное число. Найти индексы двух элементов, для которых имеет место
max(Ai-Aj-AiAj). Предполагается, что такая пара элементов единственная.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
26.02.2015, 09:17
Ответы с готовыми решениями:

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

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

Найти индексы элементов массива, кратных 3
В целочисленном одномерном массиве из N Элементов найти намера элементов , крастных 3 помогите !!!

1
 Аватар для JuriiMW
5095 / 2661 / 2355
Регистрация: 10.12.2014
Сообщений: 10,059
26.02.2015, 09:40
Лучший ответ Сообщение было отмечено Cesc07 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
const
  Nmax = 100;
 
var
  A : array [1..Nmax] of Integer;
  
  function Find(i, j : Integer) : Integer;
  begin
    Result := A[i] - A[j] - A[i]*A[j];
  end;
  
begin
  var N := ReadLnInteger('N =');
  Write('Введите через пробел все элементы массива: ');
  for var i := 1 to N do Read(A[i]); ReadLn;
  
  var maxIJ := Find(1,1);
  for var i := 1 to N do
    for var j := 1 to N do
      maxIJ := max(Find(i, j), maxIJ);
      
  WriteLn(maxIJ);
end.
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
26.02.2015, 09:40
Помогаю со студенческими работами здесь

Подпрограммы: найти индексы заданных элементов массива
Помогите пожалуйста.Найти и вывести на экран индексы заданных элементов массива (если их нет выдать соответствующее сообщение) Используйте...

Найти и вывести на экран индексы заданных элементов массива
Найти и вывести на экран индексы заданных элементов массива(если их нет,выдать соответствующее сообщение).

Найти сумму элементов массива, имеющих четные индексы
Задан двухмерный массив. Найти сумму всех элементов массива, имеющих четные индексы. Помогите пожалуйста

Найти индексы наибольшего и наименьшего элементов двухмерного массива
Найти индексы наибольшего и наименьшего элементов двухмерного массива. Можете помочь.

Найти произведение элементов массива (X1,X2,X3,.X15) , индексы которых кратны 3
Найти произведение элементов массива (X1,X2,X3,.....X15) , индексы которых кратны 3


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов
iceja 18.01.2026
Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru