Определить в заданном массиве второй по величине элемент

@Лёленька · Регистрация: 09.11.2010

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

Помогите, пожалуйста, написать алгоритм и программу в Паскаль, очень надо.... Определить в заданном массиве А(N) второй по величине элемент

@pryda · 09.11.2010, 22:53

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
const n=10;
var a:array[1..n]of integer;
    i,t:integer;
    f:boolean;
begin
randomize;
for i:=1 to n do
begin
    a[i]:=random(21)-10;
    write(a[i]:4);
end;
writeln;
repeat
f:=true;
for i:=1 to n-1 do
if a[i]>a[i+1] then
begin
    t:=a[i];
    a[i]:=a[i+1];
    a[i+1]:=t;
    f:=false;
end;
until f;
writeln('Сортированный массив:');
for i:=1 to n do
write(a[i]:4);
writeln;
for i:=n-1 downto 1 do
if a[n]<>a[i] then
begin
    writeln('Второй по величине элемент: ',a[i]);
    break;
end;
readln;
end.

@Лёленька · 10.11.2010, 11:03 **[ТС]**

Спасибо большое. А не могли бы вы мне еще с блок-схемой помочь.... Буду очень признательна

@pryda · 10.11.2010, 15:49

нет, с блок-схемами это не ко мне.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Лёленька 0 / 0 / 0 Регистрация: 09.11.2010 Сообщений: 4

	Определить в заданном массиве второй по величине элемент 09.11.2010, 22:39. Показов 1552. Ответов 3 Метки нет (Все метки) Помогите, пожалуйста, написать алгоритм и программу в Паскаль, очень надо.... Определить в заданном массиве А(N) второй по величине элемент 0

@Лёленька 0 / 0 / 0 Регистрация: 09.11.2010 Сообщений: 4
	10.11.2010, 11:03 [ТС]
	Спасибо большое. А не могли бы вы мне еще с блок-схемой помочь.... Буду очень признательна 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	10.11.2010, 15:49
	нет, с блок-схемами это не ко мне. 0

Определить в заданном массиве второй по величине элемент

Решение