Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
ogalarus
0 / 0 / 0
Регистрация: 13.03.2015
Сообщений: 22
#1

Функция: в массиве найти второе по величине число - Turbo Pascal

25.04.2015, 13:18. Просмотров 357. Ответов 1
Метки нет (Все метки)

Решить с помощью функции.
Составить программу, которая в массиве A[N] находит второе по величине число. (Вывести на печать число, которое меньше максимального элемента массива, но больше всех других элементов).
http://www.cyberforum.ru/turbo-pascal/thread1413799.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.04.2015, 13:18
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Функция: в массиве найти второе по величине число (Turbo Pascal):

Во входном файле дана последовательность чисел. Требуется найти второе по величине число в этой последовательности
Во входном файле дана последовательность чисел. Требуется найти второе по...

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

В массиве чисел A[1 N] найти последнее число, меньшее по абсолютной величине заданного числа L
3. В массиве чисел A найти последнее число, меньшее по абсолютной величине...

В массиве найти второе по величине число
составить программу, которая в массиве A(N) находит второе по величине...

Во входном файле дана последовательность чисел. Требуется найти второе по величине число.
Народ!помогите,с массивами у меня полный невминоз))как это решать? Во входном...

1
Puporev
Модератор
54131 / 41764 / 28875
Регистрация: 18.05.2008
Сообщений: 98,291
25.04.2015, 14:04 #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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
uses crt;
const nmax=20;
type mas=array[1..nmax] of integer;
function max2(a:mas;n:byte):integer;
var i:byte;
    imx1,imx2:integer;
begin
if a[1]>a[2] then
 begin
  imx1:=a[1];
  imx2:=a[2];
 end
else
 begin
  imx1:=a[2];
  imx2:=a[1];
 end;
for i:=3 to n do
if a[i]>imx1 then
 begin
  imx2:=imx1;
  imx1:=a[i];
 end
else if a[i]>imx2 then imx2:=a[i];
max2:=imx2
end;
var a:mas;
    n,i:byte;
begin
clrscr;
randomize;
repeat
write('Размер массива от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  a[i]:=random(50);
  write(a[i]:4);
 end;
writeln;
writeln('Второй максимальный=',max2(a,n));
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2015, 14:04
Привет! Вот еще темы с решениями:

В массиве наименьшей элемент поместить на первое место, наименьший из оставшихся – на последнее место, следующий по величине – на второе и тд.
15 В массиве A(n) наименьшей элемент поместить на первое место, наимень-ший из...

Подсчитайте, сколь​ко раз встречается в этом массиве максимальное по величине число
Решить: Создать массив с именем А из 10-ти элементов, задав значения его...

В отсортированном массиве найти второй максимальный по величине элемент
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В...

В отсортированном массиве найти второй максимальный по величине элемент
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В...


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

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

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