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

@Federiko · Регистрация: 19.10.2013

Студворк — интернет-сервис помощи студентам

Народ!помогите,с массивами у меня полный невминоз))как это решать?
Во входном файле дана последовательность чисел. Требуется найти второе по величине число в этой последовательности,
то есть наибольшее число в последовательности, строго меньшее её максимума.
Формат входных данных
В первой строке входного файла записано число N(2 \le N \le 100) - количество элементов в последовательности.
Во второй строке содержится N целых чисел, разделенных пробелами. Все числа во входном файле целые от -100 до 100.
В последовательности обязательно будет хотя бы два различных числа.
Формат выходных данных
В выходной файл выведите единственное число - ответ на задачу.

@CodeR · 05.11.2013, 14:13

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
Var f,g:text;
    i,n,m,max1,max2:integer;
    A:array[1..100] of integer;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    readln(f,n);
    For i:=1 to n do
    Begin
      read(f,m);
      A[i]:=m;
    End;
    max1:=A[1];
    For i:=1 to n do
     if A[i]>max1 then max1:=A[i];
    For i:=1 to n do
     if A[i]<>max1 then 
     Begin
       max2:=A[i];
       break;
     End;
    For i:=1 to n do
     if (A[i]>max2)and(A[i]<>max1) then max2:=A[i];
    writeln(g,max2);
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.

@Federiko · 05.11.2013, 14:44 **[ТС]**

Сообщение от CodeR

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
Var f,g:text;
    i,n,m,max1,max2:integer;
    A:array[1..100] of integer;
Begin
    Assign(f,'in.txt');Reset(f);
    Assign(g,'out.txt');Rewrite(g);
    readln(f,n);
    For i:=1 to n do
    Begin
      read(f,m);
      A[i]:=m;
    End;
    max1:=A[1];
    For i:=1 to n do
     if A[i]>max1 then max1:=A[i];
    For i:=1 to n do
     if A[i]<>max1 then 
     Begin
       max2:=A[i];
       break;
     End;
    For i:=1 to n do
     if (A[i]>max2)and(A[i]<>max1) then max2:=A[i];
    writeln(g,max2);
    writeln('Результат в файле "out.txt"');
    Close(f);Close(g);
    readln;
End.

ошибка в чём то))подправьте пожалуйста)

@CodeR · 05.11.2013, 14:46

Сообщение от Federiko

ошибка в чём то))подправьте пожалуйста)

Ошибка скорее всего в том,что вы не создали файл в папке с программой (файл надо создать по условию входных данных)

@chizz · 05.11.2013, 14:56

Сообщение от Federiko

ошибка в чём то))подправьте пожалуйста)

Гениально!

@Federiko · 05.11.2013, 15:28 **[ТС]**

Сообщение от CodeR

Ошибка скорее всего в том,что вы не создали файл в папке с программой (файл надо создать по условию входных данных)

Вы имеете ввиду input.txt и output.txt&

@CodeR · 05.11.2013, 15:31

Сообщение от Federiko

Вы имеете ввиду input.txt и output.txt&

in.txt создаёшь в папке с программой,потом заполняешь его по условию и запускаешь прогу
Пример заполнения файла
5
-10 20 -15 30 40

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@Federiko 0 / 0 / 2 Регистрация: 19.10.2013 Сообщений: 58

	Во входном файле дана последовательность чисел. Требуется найти второе по величине число. 05.11.2013, 13:58. Показов 3399. Ответов 6 Метки нет (Все метки) Народ!помогите,с массивами у меня полный невминоз))как это решать? Во входном файле дана последовательность чисел. Требуется найти второе по величине число в этой последовательности, то есть наибольшее число в последовательности, строго меньшее её максимума. Формат входных данных В первой строке входного файла записано число N(2 \le N \le 100) - количество элементов в последовательности. Во второй строке содержится N целых чисел, разделенных пробелами. Все числа во входном файле целые от -100 до 100. В последовательности обязательно будет хотя бы два различных числа. Формат выходных данных В выходной файл выведите единственное число - ответ на задачу. 0