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

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

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

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

Pascal

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

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

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

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

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.

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 02:10 [ТС]	3
	нет ( 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	4
	я навер не правильно понял,привиди еще 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
	-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	8
	pikusfikus, Главное результат 1

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

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	17.11.2009, 02:54	10
	Сообщение от Wassago k:=a[1]; a[1]:=min1; a[i]:=k; для замены 0

@pikusfikus 175 / 172 / 40 Регистрация: 14.11.2009 Сообщений: 507
	17.11.2009, 02:57 [ТС]	11
	аахах ну да главное,только не тогда когда задачае превишет 64кб Добавлено через 1 минуту Сообщение от Wassago для замены о дейстивтельно )я просто с массивами розбираюся толька 3 дня,еше толком не понял ))а ведь это только сегодня читал Добавлено через 39 секунд еше раз тебе большое спасибо) 0

@Wassago localhost 58 / 58 / 9 Регистрация: 02.09.2009 Сообщений: 170
	17.11.2009, 03:00	12
	Сообщение от pikusfikus аахах ну да главное,только не тогда когда задачае превишет 64кб pikusfikus, я ее для примера втык,можешь ее так: k:byte; много меньше будет весит) 1

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

	14.11.2022, 11:40