2 минимума массива

@pikusfikus · Регистрация: 14.11.2009

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

Уважаемые программисты!,помогите, пожалуйста, з задачей,срочно нужно...я уже просил об этом в предыдущей теме ,но никто так и робочего кода не выложил.
Задача такая : найти 2 минимума в массиве А с N элементов.(Пример в массиве А(-1,4,0,3,12,6) - это будут -1 и 0)
вот мой код :

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program n20;
var
a:array[1..100] of integer;
i,min1,min2,n:integer;
begin
writeln('vvedit rozmir massiva');
readln(n);
randomize;
writeln('massiv');
for i:=1 to n do begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
min1:=a[1];
for i:=n downto 2 do
if (min1>a[i]) xor (min1=min2) then begin
min2:=min1;
min1:=a[i];
end;
writeln('1 minimalnyj element ',min1);
writeln('2 minimalnyj element ',min2);
end.

но цикл обработывает только те элементы,которые правее 1 максимуму,то есть если 2 максимум по индексу левее 1 максимума,оно эго не выводит

помогите переделать алгоритм ,или если ошибки критичны сделать иный,буду очень признателен.

Добавлено через 2 минуты
п.с если цикл for i:=n downto do 1 заменить на for i:=1 to n do ,то цикл будет проходить только элементы до 1 максимума

@Wassago · 17.11.2009, 02:07

М.б. так:

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
var a:array[1..100] of integer;
    i,min1,min2,n:integer;
 
begin
 
  writeln('vvedit rozmir massiva');
  readln(n);
  randomize;
  writeln('massiv');
  for i:=1 to n do
   begin
     a[i]:=random(100)-50;
     write(a[i],' ');
   end;
 
  writeln;
  min2:=0;
  for i:=1 to n do
   begin
    if a[i]>min2 then
     min2:=a[i];
   end;
  for i:=1 to n do
   begin
    if a[i]<min1 then
     begin
      min1:=a[i];
     end;
    if (a[i]<min2) and (a[i]>0) then
     min2:=a[i];
   end;
   
writeln('1 минимальное  отрицательное ',min1);
  writeln('2 минимальное положительное ',min2);
end.

@pikusfikus · 17.11.2009, 02:10 **[ТС]**

нет

(
vvedit rozmir massiva
10
massiv
-21 0 -7 46 25 11 -30 -10 -12 -25
1 minimalnyj element -30
2 minimalnyj element 11

у меня хоть выводило 2 максимум правильно в определенном условии,но всёравно спасибо !

@Wassago · 17.11.2009, 02:12

я навер не правильно понял,привиди еще 1 пример как должно быть !
на это:
vvedit rozmir massiva
10
massiv
-21 0 -7 46 25 11 -30 -10 -12 -25
1 minimalnyj element -30
2 minimalnyj element 11

@pikusfikus · 17.11.2009, 02:17 **[ТС]**

-5 19 -10 13 31 39 11 -3 21 39
1 minimalnyj element -10
2 minimalnyj element 11

так всмысле 1 элемент правильно ищет,а второй в этом случае должен быть -5

Добавлено через 2 минуты
а должно быть
-5 19 -10 13 31 39 11 -3 21 39
1 minimalnyj element -10
2 minimalnyj element -5 !!!!!!!!!!!!!!!!!!!!!!!!!!!

))

@Wassago · 17.11.2009, 02:37

Перенести его на a:[1],и следующий цикл for начать с i:=2...

Добавлено через 23 секунды
шас попробую сделать

Добавлено через 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
var a:array[1..100] of integer;
    i,min1,min2,n,k:integer;
 
begin
 
  writeln('vvedit rozmir massiva');
  readln(n);
  randomize;
  writeln('massiv');
  for i:=1 to n do
   begin
     a[i]:=random(100)-50;
     write(a[i],' ');
   end;
 
  writeln;
  min2:=0;
  for i:=1 to n do
   begin
    if a[i]>min2 then
     min2:=a[i];
   end;
  for i:=1 to n do
   begin
    if a[i]<min1 then
     begin
      min1:=a[i];
 
     k:=a[1]; a[1]:=min1; a[i]:=k;
     end;
    end;
    
     for i:=2 to n do
      begin
       if a[i]<min2 then
       min2:=a[i];
      end;
       
 
writeln('1 минимальный ',min1);
  writeln('2 минимальный ',min2);
end.

@pikusfikus · 17.11.2009, 02:48 **[ТС]**

о спасиба тебе большое именно так просто и понятно а теперь смотри как я сделал,конечно алгоритм кривой но я сам его сделал )))

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
program n20;
var
a:array[1..100] of integer;
i,min1,c,d,min2,n:integer;
begin
writeln('vvedit rozmir massiva');
readln(n);
randomize;
writeln('massiv');
for i:=1 to n do begin
a[i]:=random(100)-40;
write(a[i],' ');
end;
writeln;
min1:=a[1];
for i:=1 to n do
if min1>a[i] then min1:=a[i];
min2:=min1;
for i:=1 to n do
if (min2>a[i]) xor (min2=min1) then min2:=a[i];
c:=min2;
for i:=n downto 1 do
if (min2>a[i]) xor (min2=min1) then min2:=a[i];
d:=min2;
writeln('1 minimalnyj element ',min1);
if c<d then
writeln('2 minimalnyj element ',c);
if d<c then
writeln('2 minimalnyj element ',d);
end.

@Wassago · 17.11.2009, 02:52

pikusfikus, Главное результат

@pikusfikus · 17.11.2009, 02:54 **[ТС]**

только объясни,пожалуйста, зачем ты ввел переменною k ?ти же ее нигде не использовал

@Wassago · 17.11.2009, 02:54

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

k:=a[1]; a[1]:=min1; a[i]:=k;

для замены

@pikusfikus · 17.11.2009, 02:57 **[ТС]**

аахах ну да главное,только не тогда когда задачае превишет 64кб

Добавлено через 1 минуту

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

для замены

о дейстивтельно )я просто с массивами розбираюся толька 3 дня,еше толком не понял ))а ведь это только сегодня читал

Добавлено через 39 секунд
еше раз тебе большое спасибо)

@Wassago · 17.11.2009, 03:00

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

аахах ну да главное,только не тогда когда задачае превишет 64кб

pikusfikus, я ее для примера втык,можешь ее так:
k:byte;
много меньше будет весит)

@pikusfikus · 17.11.2009, 03:02 **[ТС]**

ахаха да это уже формальность ))

@VldBeLike · 14.11.2022, 11:40

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program zadacha1;
const n = 6;
var a: array[1..n] of integer; 
i, min, min1:integer;
begin
for i:=1 to n do begin
  readln(a[i]);
  end;
  
  min := a[1];
  min1 := a[1];
  
  for i := 2 to n do begin
  if min > a[i] then min := a[i];
  if (min1 <= min) and (a[i] > min) then min1 := a[i]; 
  end;
  
    writeln; writeln('Мин.элемент массива №1: ', min);
    writeln('Мин.элемент массива №2: ', min1)
end.

Новые блоги и статьи Все статьи Все блоги /
Как использовать Bluetooth-модуль HC-05 с Arduino Wired 08.07.2025 Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .	Руководство по структурам данных Python AI_Generated 08.07.2025 Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .	Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Programma_Boinc 08.07.2025 Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .	Раскрываем внутренние механики Android с помощью контекста и манифеста mobDevWorks 07.07.2025 Каждый Android-разработчик сталкивается с Context и манифестом буквально в первый день работы. Но много ли мы задумываемся о том, что скрывается за этими обыденными элементами? Я, честно говоря,. . .	API на базе FastAPI с Python за пару минут AI_Generated 07.07.2025 FastAPI - это относительно молодой фреймворк для создания веб-API, который за короткое время заработал бешеную популярность в Python-сообществе. И не зря. Я помню, как впервые запустил приложение на. . .
Основы WebGL. Раскрашивание вершин с помощью VBO 8Observer8 05.07.2025 На русском https:/ / vkvideo. ru/ video-231374465_456239020 На английском https:/ / www. youtube. com/ watch?v=oskqtCrWns0 Исходники примера:	Мониторинг микросервисов с OpenTelemetry в Kubernetes Mr. Docker 04.07.2025 Проблема наблюдаемости (observability) в Kubernetes - это не просто вопрос сбора логов или метрик. Это целый комплекс вызовов, которые возникают из-за самой природы контейнеризации и оркестрации. К. . .	Проблемы с Kotlin и Wasm при создании игры GameUnited 03.07.2025 В современном мире разработки игр выбор технологии - это зачастую балансирование между удобством разработки, переносимостью и производительностью. Когда я решил создать свою первую веб-игру, мой. . .	Создаем микросервисы с Go и Kubernetes golander 02.07.2025 Когда я только начинал с микросервисами, все спорили о том, какой язык юзать. Сейчас Go (или Golang) фактически захватил эту нишу. И вот почему этот язык настолько заходит для этих задач: . . .	C++23, квантовые вычисления и взаимодействие с Q# bytestream 02.07.2025 Я всегда с некоторым скептицизмом относился к громким заявлениям о революциях в IT, но квантовые вычисления - это тот случай, когда революция действительно происходит прямо у нас на глазах. Последние. . .

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 02:10 [ТС]
	нет ( vvedit rozmir massiva 10 massiv -21 0 -7 46 25 11 -30 -10 -12 -25 1 minimalnyj element -30 2 minimalnyj element 11 у меня хоть выводило 2 максимум правильно в определенном условии,но всёравно спасибо ! 0

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	17.11.2009, 02:12
	я навер не правильно понял,привиди еще 1 пример как должно быть ! на это: vvedit rozmir massiva 10 massiv -21 0 -7 46 25 11 -30 -10 -12 -25 1 minimalnyj element -30 2 minimalnyj element 11 1

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 02:17 [ТС]
	-5 19 -10 13 31 39 11 -3 21 39 1 minimalnyj element -10 2 minimalnyj element 11 так всмысле 1 элемент правильно ищет,а второй в этом случае должен быть -5 Добавлено через 2 минуты а должно быть -5 19 -10 13 31 39 11 -3 21 39 1 minimalnyj element -10 2 minimalnyj element -5 !!!!!!!!!!!!!!!!!!!!!!!!!!! )) 0

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	17.11.2009, 02:52
	pikusfikus, Главное результат 1

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 02:54 [ТС]
	только объясни,пожалуйста, зачем ты ввел переменною k ?ти же ее нигде не использовал 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 03:02 [ТС]
	ахаха да это уже формальность )) 0