Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
uM6o
0 / 0 / 1
Регистрация: 30.10.2012
Сообщений: 12
#1

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

01.11.2012, 12:33. Просмотров 888. Ответов 6
Метки нет (Все метки)

Дан целочисленный одномерный массив, вывести пред максимальный элемент массива.
Например Ввод:1 2 3 4 5 Вывод:4
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 12:33
Ответы с готовыми решениями:

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

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

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

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

Создать функцию, определяющую максимальный элемент вектора
Задача состоит в следующем: Создать функцию, определяющую максимальный элемент...

6
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
01.11.2012, 12:38 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
 A: array[ 1 .. 10 ] of integer;
 i, max, index: integer;
begin
randomize;
for i:=1 to 10 do begin
    A[i]:=random(21)-10;
    write(A[i],' ');
end;
writeln;
max:=a[1];index:=1;
for i:=1 to 10 do begin
     if a[i] > max then begin
        max:=a[i];
        index:=i;
     end;
end;
 
writeln('Element that is standing before max is :', a[index-1]);
readkey;
end.
1
uM6o
0 / 0 / 1
Регистрация: 30.10.2012
Сообщений: 12
01.11.2012, 12:52  [ТС] #3
А если максимальные элементы массива будут идти не по порядку?
-8 3 8 7 -5 4 0 2 -3 -8
Element that is standing before max is :3
а должно вывести 7
0
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
01.11.2012, 12:57 #4
-8 3 8 7 -5 4 0 2 -3 -8
а должно вывести 3!
У вас максимальный элемент 8. Внимательнее! я вам не номер вывожу, а сам элемент.
0
uM6o
0 / 0 / 1
Регистрация: 30.10.2012
Сообщений: 12
01.11.2012, 13:06  [ТС] #5
Цитата Сообщение от Leshak Посмотреть сообщение
У вас максимальный элемент 8.
Пред максимальный, элемент который больше всех кроме максимального.
5 8 2 6
максимальный - 8, пред максимальный - 6
0
Leshak
259 / 235 / 160
Регистрация: 10.12.2011
Сообщений: 513
01.11.2012, 13:13 #6
Вот вам это вначале было сложно написать?) Или вы думаете тут экстрасенсы сидят?) Сейчас переделаю.

Добавлено через 4 минуты
Теперь оно?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
 A: array[ 1 .. 10 ] of integer;
 i, max, pre_max: integer;
begin
randomize;
for i:=1 to 10 do begin
    A[i]:=random(21)-10;
    write(A[i],' ');
end;
writeln;
max:=a[1];
for i:=1 to 10 do begin
     if a[i] > max then max:=a[i];  
end;
writeln(max);
Pre_max:=a[1];
for i:=1 to 10 do begin
     if ( a[i] > Pre_max ) and ( a[i] <> max ) then pre_max:=a[i];  
end;
writeln(pre_max);
readkey;
end.
1
uM6o
0 / 0 / 1
Регистрация: 30.10.2012
Сообщений: 12
01.11.2012, 13:17  [ТС] #7
Цитата Сообщение от Leshak Посмотреть сообщение
Вот вам это вначале было сложно написать?) Или вы думаете тут экстрасенсы сидят?) Сейчас переделаю.

Теперь оно?
извините, спасибо большое
0
01.11.2012, 13:17
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2012, 13:17

Функция, определяющую максимальный элемент матрицы в заштрихованной области
const n=10; type matr = array of integer; Напишите функцию Max(A: matrix):...

Составить программу нахождения номера столбца, в котором расположен максимальный элемент любой строки матрицы
1) Составить программу: а) нахождения номера столбца, в котором расположен...

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


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

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

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