(PAS)Одномерные массивы.Получить последовательность min(max...

[dimokin777]

Не пойму как оно вообще.. Помогите , пожалуйста.

[Vladilen]

Ну я понял это так.
Вводишь целое число K
Вводишь целое число N
Заполняешь массив от 1 до K*N вещественными числами.
Потом находишь максимальное число на 3х указанных отрезках массива.
У тебя получается 3 числа. Вот среди эти трех чисел тебе и нужно найти минимальное.

[Serge_Bliznykov]

Потом находишь максимальное число на 3х указанных отрезках массива.

нет! поправочка!
не на 3-х, а на N участках. причём в каждом участке ровно K элементов.

на абстрактном примере это будет выглядеть так:
пусть k=3 пусть N равно 5
тогда получается, что в массиве k*n = 15 элементов.
пусть это будет:
1 7 2 5 1 3 4 5 6 9 2 1 11 8 19
разбиваем массив на 5 участков по 3 элемента в участке и находим для каждого MAX
Max(1, 7, 2 ) = 7
Max(5, 1, 3 ) = 5
Max = 6
Max = 9
Max( 11, 8, 19) = 19
из полученных значений находим MIN( 7, 5, 6, 9, 19) = 5
Это и есть ответ в задаче.

решается задача простыми вложенными циклами...

[Vladilen]

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

нет! поправочка!
не на 3-х, а на N участках. причём в каждом участке ровно K элементов.

Да вы правы. Ночью не заметил этого. На первый взгляд зависимости не увидел.

[dimokin777]

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

разбиваем массив на 5 участков по 3 элемента в участке и находим для каждого MAX
[/I]

а почему 5 участков ? ведь в задании :
1 уч. a[1]..a[k]
2 a[k+1]..a[2k]
3 a[k(n-1)+1]..a[kn]

[dimokin777]

У меня получилось так

CONST  N=5;K=3;
TYPE MAS=ARRAY[1..N*K] OF REAL;
VAR A:MAS;I,D,M:INTEGER; MAX1,MAX2,MAX3,MIN:REAL;
BEGIN
  WRITELN(' УВЕДІТЬ ',N*K,' ЧИСЕЛ');
  FOR I:=1 TO N*K DO READ(A[I]);
  WRITELN(' ':5, 'ВИХІДНИЙ МАСИВ');
  FOR I:=1 TO N*K DO WRITE(A[I]:3);
  
  {ФОРМУВАННЯ}

  WRITELN;
  MAX1:=-MAXINT;
  FOR I:=1 TO K DO
  IF A[I]>MAX1 THEN MAX1:=A[I];
  

  MAX2:=-MAXINT;
  FOR I:=K+1 TO 2*K DO
  IF A[I]>MAX2 THEN MAX2:=A[I];

  MAX3:=-MAXINT;
  FOR I:=K*(N-1)+1 TO K*N DO
  IF A[I]>MAX3 THEN MAX3:=A[I];
  
  MIN:=MAXINT;
  FOR I:=1 TO K*N DO
  BEGIN
  IF MAX1<MIN THEN MIN:=MAX1;
  IF MAX2<MAX1 THEN MIN:=MAX2;
  IF MAX3<MAX2 THEN MIN:=MAX3;
  END;
WRITELN('MIN= ',MIN);
END.

Но ведь в задании указано "Получите последовательность"...

[dimokin777]

Или если с последовательностью

CONST  N=5;K=3;
TYPE MAS=ARRAY[1..N*K] OF REAL;
VAR A,B:MAS;I,D,M:INTEGER; MAX1,MAX2,MAX3,MIN:REAL;
BEGIN
  WRITELN(' УВЕДІТЬ ',N*K,' ЧИСЕЛ');
  FOR I:=1 TO N*K DO READ(A[I]);
  WRITELN('ВИХІДНИЙ МАСИВ');
  FOR I:=1 TO N*K DO WRITE(A[I]:3);
  
  {ФОРМУВАННЯ}

  WRITELN;
  MAX1:=-MAXINT;
  FOR I:=1 TO K DO
  IF A[I]>MAX1 THEN MAX1:=A[I];
  

  MAX2:=-MAXINT;
  FOR I:=K+1 TO 2*K DO
  IF A[I]>MAX2 THEN MAX2:=A[I];

  MAX3:=-MAXINT;
  FOR I:=K*(N-1)+1 TO K*N DO
  IF A[I]>MAX3 THEN MAX3:=A[I];
  
  MIN:=MAXINT;
  FOR I:=1 TO K*N DO
  BEGIN
  IF MAX1<MIN THEN MIN:=MAX1;
  IF MAX2<MAX1 THEN MIN:=MAX2;
  IF MAX3<MAX2 THEN MIN:=MAX3;
  END;
WRITELN('MIN= ',MIN);

  b[1]:=min;
  b[2]:=max1;
  b[3]:=max2;
  b[4]:=max3;
  WRITE('Последовательность : ');
  for i:=1 to 4 do
  write(b[i]:4);
  

END.

[Serge_Bliznykov]

а почему 5 участков ? ведь в задании :
1 уч. a[1]..a[k]
2 a[k+1]..a[2k]
3 a[k(n-1)+1]..a[kn]

Вы неправы. И как только попытаетесь расписать
для ваших CONST N=5;K=3;
участки a[1]..a[k], a[k+1]..a[2k] ...????? ...a[k(n-1)+1]..a[kn]
в виде {A1 A2 A3} и т.д.
и легко в этом убедитесь.
Ну и, соответственно, решение тоже неверное...

Но ведь в задании указано "Получите последовательность"...

вот тут, Вы в точку подметили. Я давно уже привык больше верить математическим формулам, чем сопуствующим словам, поэтому даже не заметил этого...
Думаю, что это у автором задачи не совсем получилось сформулировать, хотели сказать: "получить минимальное значение для последовательности ... " или что-то вроде того..
но MIN(....) - это не последовательность. Это ОДНО значение...

[dimokin777]

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

Вы неправы. И как только попытаетесь расписать
для ваших CONST N=5;K=3;
участки a[1]..a[k], a[k+1]..a[2k] ...????? ...a[k(n-1)+1]..a[kn]
легко в этом убедитесь.

Вот это мне непонятно , почему 5 участков , если в условии четко задано
max(A1..Ak)
max(A(k+1)..A2k)
max(Ak(n-1)+1..Akn)

[Serge_Bliznykov]

Вот это мне непонятно , почему 5 участков , если в условии четко задано
max(A1..Ak)
max(A(k+1)..A2k)
max(Ak(n-1)+1..Akn)

Ну поверьте мне. Именно N фрагментов!

ну пропустили в типографии такую "мелочь" как запятая и три точки..
должно было быть:
max(A1..Ak)
max(A(k+1)..A2k), ... max(Ak(n-1)+1..Akn)

А если бы вы расписали 15 элементов так, как я Вам сказали, то сами увидели, что в вашем случае часть элементов выпадает из ряда..