Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 02.11.2014
Сообщений: 7
1

Отыскать среди пар элементов массива те, разность между элементами которых - наибольшая для данного массива

25.03.2015, 17:55. Показов 1146. Ответов 1
Метки нет (Все метки)

Помогите, составить программу, которая отыскивает среди пар элементов одномерного массива М те, разность между элементами которых есть величина наибольшая для данного массива.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.03.2015, 17:55
Ответы с готовыми решениями:

Отыскать среди пар элементов одномерного массива z(x) те пары, разность между элементами которых наибольшая
Здравствуйте, уважаемые программисты! У меня вопрос. Нужно составить программу отыскивающую среди...

Отыскать среди пар элементов одномерного массива те, разность между элементами которых максимальна
Составьте программу, отыскивающую среди пар элементов одномерного массива Z(N) те, разность между...

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

Составить программу, отыскивающую среди пар элементов одномерного массива Z(N) те, разность между элементами которых есть величина наименьшая
Составьте программу, отыскивающую среди пар элементов одномерного массива Z(N) те, разность между...

1
Почетный модератор
64085 / 47494 / 32734
Регистрация: 18.05.2008
Сообщений: 115,182
25.03.2015, 18:13 2
Лучший ответ Сообщение было отмечено vS_Hayter как решение

Решение

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
27
28
29
30
31
32
33
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,mx,imx,jmx:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива А от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив A');
for i:=1 to n do
 begin
  a[i]:=-25+random(51);
  write(a[i]:4)
 end;
writeln;
mx:=abs(a[1]-a[2]);
imx:=1;
jmx:=2;
for i:=1 to n-1 do
for j:=i+1 to n do
if abs(a[i]-a[j])>mx then
 begin
  mx:=abs(a[i]-a[j]);
  imx:=i;
  jmx:=j
 end;
write('Максимальная разность=',mx,' между элементами a[',imx,']=',a[imx],
      ' и a[',jmx,']=',a[jmx]);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.03.2015, 18:13

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

Найти разность между суммой элементов данного двумерного массива
найти разность между суммой элементов данного двумерного массива стоящих в колонках с четными...

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

Найти среди элементов массива два таких, разность которых имеет наибольшее значение
Пожалуйста,помогите решить задачу C# 6)Сформироватьцелочисленный массив А(75), элементами...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru