Паскаль. Массивы.

[iCaesy]

Есть задание:
Найти произведение двух макс. и двух мин. положительных непарных элементов массива A(25);
Написал код:

PROGRAM lab_6;
  USES CRT;
  CONST N = 25;
  TYPE IND = 1..N;
            MAS = ARRAY[IND] OF INTEGER;
VAR X:MAS; imx,imn,I:INTEGER;
        A:BOOLEAN; P:CHAR;
BEGIN  CLRSCR;
  WRITELN(' ÓÂÅIJÒÜ ',N,' ×ÈÑÅË');
  FOR I:=1 TO N DO READ(x[I]);
  WRITE(' ':20, 'ÂÈÕ²ÄÍÈÉ ÌÀÑÈÂ');
  FOR I:=1 TO N DO
  WRITE(x[I]:4);WRITELN;
imx:=1; imn:=1;
for i:=1 to n do
begin
    if (x[i]>x[imx]) and (x[i] MOD 2 <> 0)  then imx:=i;
    if (x[i]<x[imn]) and (x[i] MOD 2 <> 0) then imn:=i;
end;
writeln('Ìàêñèìàëüíûé= ',x[imx],' Ìèíèìàëüíûé= ',x[imn]);
writeln('Ïðîèçâåäåíèå= ',x[imx]*x[imn]);
readln;
end.

Нужна помощь в поиске вторых минимальных и максимальных значений.
Интересует алгоритм поиска.

[JUDAS]

program Project1;
var
  MAS : ARRAY[1..25] OF INTEGER;
  i : integer;
  min1, min2 : integer;
  max1, max2 : integer;

begin
 // =============== ЗАПОЛНЕНИЕ ===================
 Randomize;
  for i:=1 to 25 do
  begin
   mas[i]:=round(random*1000-500);
   write (mas[i],' ');
  end;
  writeln(' ');
 
// ==================================

  min1 := MaxInt;  min2 := MaxInt;
  max1 := -MaxInt; max2 := -MaxInt;

  for i:=1 to 25 do
  if mas[i] mod 2 = 1 then
  begin
    if mas[i]>max1 then max1:=mas[i];
    if mas[i]<min1 then min1:=mas[i];
  end;
  writeln(' ');
  writeln(max1,' ', min1);

  for i:=1 to 25 do
  if mas[i] mod 2 = 1 then
  begin
    if (mas[i]>max2) and (mas[i]<max1) then max2:=mas[i];
    if (mas[i]<min2) and (mas[i]>min1) then min2:=mas[i];
  end;
  writeln(max2,' ', min2);
  readln;
end.

Ссори но остальные элементы Вашего кода не понятны, так как подписаны ДОС кодировкой )

[iCaesy]

Ой спасибо)

 min1 := MaxInt;  min2 := MaxInt;
  max1 := -MaxInt; max2 := -MaxInt;

Если можно, прокомментируйте что мы тут делаем...

[Danko]

Если можно, прокомментируйте что мы тут делаем...

Здесь идет присвоение переменным min1 и min2 максимального целочисленного значения (грубо говоря - плюс бесконечность), а переменным max1 и max2 -минимального (минус бесконечность).

P.S. MaxInt = 32767, MinInt = -32768

[iCaesy]

Спасибо
10 символов

[Serge_Bliznykov]

Вы думаете, что это абсолютно ПРАВИЛЬНОЕ решение? ну-ну..
заполните массив одинаковым значением (ну, например, так:

  for i:=1 to 25 do
  begin
   mas[i]:= 11;

и посмотрите, что выдаст программа..

[JUDAS]

заполните массив

Сергей, это тже раздел не для промышленных программ, а для обучения азам. Если писать промышленный вариант, то автор темы получит заведомую двойку по простой причине.
Препод всегд знает кто чем дышыт. Если заведомо известный троечник приносит код, который написан с учётом всех "защит от дебила", как Вы думаете, какая реакция будет у препода?
Кстате, вопрос к Вам Сергей, что бы вы поставили этому человеку и как отреагировали ? )))

[TinMan]

Если писать промышленный вариант, то автор темы получит заведомую двойку по простой причине.
Препод всегд знает кто чем дышыт. Если заведомо известный троечник приносит код, который написан с учётом всех "защит от дебила", как Вы думаете, какая реакция будет у препода?

Ну ни фига себе философия.. Сам пишешь "для обучения азам" а на деле - фальсифицируешь сдачу работы? Жуть..

Кроме той ошибки, на которую указал Серж, у тебя еще ошибка в определении нечетных чисел.. Скажешь - тоже маскировка под двоечника? н-да..

[JUDAS]

у тебя еще ошибка в определении нечетных чисел

Посмотри внимательно где ошибка. Если не получится сразу, попробуй на бумажке расписать что анализируется в коде, что такое mod , какое значение будет при делении на 2 нечётного и чётного числа.

изменил пост. )

[Serge_Bliznykov]

JUDAS, во-первых, зачем хамить то?!

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

Сергей, это тже раздел не для промышленных программ, а для обучения азам. Если писать промышленный вариант, то автор темы получит заведомую двойку по простой причине.
Препод всегд знает кто чем дышыт. Если заведомо известный троечник приносит код, который написан с учётом всех "защит от дебила", как Вы думаете, какая реакция будет у препода?
Кстате, вопрос к Вам Сергей, что бы вы поставили этому человеку и как отреагировали ? )))

во-вторых, элементарную ошибку в логике Вы пытаетесь оправдать тем, что это НЕ ПРОМЫШЛЕННЫЙ вариант. При чём здесь "промышленность"? В том, что Вы для стуеднтов пишет абы как, чтобы только сдать, ну и пусть не для всех исходных чисел код работает, это же неважно, да?
Мой пример, если Вы не поняли, иллюстрирует ошибку в вашем коде: когда среди чисел обнаружится ДВА одинаковых минимальных и/или ДВА ОДИНАКОВЫХ максимальных числа, то Ваш код не найдёт второе минимальное и/или максимальное значение. Исправить эту ошибку - элементарно. Думаю, что если Вы немного подумаете, то найдёте, как это сделать. (автор темы вопросов не задаёт, если у него возникнет потребность, я приведу решение, лишённое этого недостатка.

теперь по поводу отстатка от деления на 2. Признаюсь честно, мне потребовалось пройтись в отладчике, чтобы увидеть, почему программа правильно работает и отбрасывает не только положительные, но и отрицательные числа... (ну да, не сообразил я сразу, что остаток от деления на два будет иметь тот же знак, что и исходное число, т.е. для отрицательных чисел это будет -1, что, безусловно, не проходит на условие равенства единице). А Вы уверены, что Ваша такая "оптимизация" понятна студенту?
конечно же, строчка вида
if odd(mas[i]) and (mas[i]>=0) then ...
это уже "промышленная" реализация...

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

Кстате, вопрос к Вам Сергей, что бы вы поставили этому человеку и как отреагировали ? )))

если бы работа сдавалась письменно (без защиты), то, скорее всего тройку (за то, что одинаковые числа неправильно учитываются). Если же была личная защита, то я на 100% уверен, что человек не смог бы объяснить, где здесь выбираются ТОЛЬКО положительные числа. Для того, чтобы убедится, что он не понимает решение, я бы предложил ему переделать код, чтобы найти то же самое (мин/макс) но для ОТРИЦАТЕЛЬНЫХ ЧЁТНЫХ чисел. Если бы он справился, то получил бы чётвёрку (а может, после доп.вопроса - и пятёрку). Если не справился - двойку.
Всё просто...