Задан массив чисел A (2n ) , n < = 20. Найти максимум значение минимумов пар элементов массива

[Саша27]

Задано массив чисел A (2n ) , n < = 20 . Разработать программу , которая вычисляет значение : Max ( min (A (1 ) , A (2n )) , min ( A (2 ) , A (2n -1 )) , ... . , Min (A ( n ) , A ( n +1 )))

[newerow1989]

2n что означает?

[Саша27]

Наверное массив

[newerow1989]

const n=20;
var a:array[0..2*n-1] of integer;
    min:array[0..n-1] of integer;
    i,max:integer;
begin
   Randomize;
   For i:=0 to 2*n-1 do
   begin
      a[i]:=Random(100);
      Write(a[i],'  ');
   end;
   Writeln('');
   Writeln('min:');
   For i:=0 to n-1 do
   begin
      If a[i]<a[2*n-i-1] then
         min[i]:=a[i] else
         min[i]:=a[2*n-i-1];
      Write(min[i],'  ');
   end;
   max:=min[0];
   For i:=1 to n-1 do
      If max<min[i] then
         max:=min[i];
   Writeln('');
   Writeln('max=',max);
   Readln;
end.

Сойдет?

[Саша27]

Так пойдет но если можешь распиши означающих действия

[newerow1989]

const n=20;
var a:array[0..2*n-1] of integer;
    min:array[0..n-1] of integer;
    i,max:integer;
begin
   Randomize;//генерация случайных чисел
   For i:=0 to 2*n-1 do
   begin
      a[i]:=Random(100);//задаем случайные числа в диапазоне [0..100)
      Write(a[i],'  ');//распечатываем массив
   end;
   Writeln('');
   Writeln('min:');//печать на экран
   For i:=0 to n-1 do
   begin
      If a[i]<a[2*n-i-1] then//сравниваем 2 элемента (первый и последний, далее второй и предпоследний, далее третий и предпредпоследний, до тех пор, пока не дойдем до середины), потом ищем какой из этих двух меньше всего, и присваиваем переменной min
         min[i]:=a[i] else
         min[i]:=a[2*n-i-1];
      Write(min[i],'  ');//печать массива из минимальных элементов
   end;
   max:=min[0];
   For i:=1 to n-1 do
      If max<min[i] then//ищем в массиве min самое большое число
         max:=min[i];
   Writeln('');
   Writeln('max=',max);//распечатываем самое большое число
   Readln;
end.

Ясненько?

[Саша27]

Program 1;
Uses Crt;
var a:array[1..20] of integer;
    i,n,min:integer;
begi
   Writeln('Vvedit massuv A(20)');
   For i:=1 to 20 do
 Read(A(i))
N:=0;  
 For i:=1 to 20 do
      If A(i)< A(i)
Else
if

Начало должно быть так как у меня

[newerow1989]

If A(i)< A(i)
 Else
 if

Это обязательно?

i,n,min:integer;

Другие переменные тоже можно объявлять?

a:array[1..20]

Там размерность до 40 должно быть, а не 20 (по условию 2n, где n <= 20, следовательно 2n = 40

[Саша27]

Помогите пожалуйста Зарание спасиба

If A(i)< A(i)...........
Else
if............Это просто не до конца написано

[newerow1989]

const n=20;
var a:array[1..2*n] of integer;
    i,min,max:integer;
begin
   Writeln('Vvedit massuv A(20)');
   For i:=1 to 2*n do
      Read(A(i));
   min:=a[1];
   If min>a[2*n] then
      min:=a[2*n];//находим минимальный элемент массива из 2-х крайних
   max:=min;//пусть будет максимальной
   For i:=2 to n do//то же самое, только движемся к центру массива
   begin
      min:=a[i];
      If min>a[2*n-i+1] then
         min:=a[2*n-i+1];
      If max<min then
         max:=min;//выбираем максимальный элемент
   end;
   Writeln('max=',max);
   Readln;
end.

Сойдет?