Question

помогите пожалуйста.
8_8. Дан массив. Найти первый локальный минимум (локальный минимум – элемент, который меньше своих соседей).
8_9. Дан массив А, получить массив В:
А = {13, 7, 9 , 17 , 15 } --> В = {13, 7, 9 , 17 , 15 , 13, 7, 9 , 17 , 15 }

Answer 1

1)
var
a: array[1..100] of integer;
i,n: integer;
  begin
  writeln('Введите кол-во элементов массива');
    readln(n);
    writeln('Массив:');
     for i:=1 to n do
       begin
         a[i]:= random(50)+1;
         write(a[i],' ' );
       end;
       writeln;
       if a[1]<a[2] then
         begin
           writeln('Локальный минимум:',a[1]);
           exit;
         end;
     for i:=2 to n do
       if (a[i]<a[i-1]) and (a[i]<a[i+1]) then
         begin
           writeln('Локальный минимум:',a[i]);
           exit;
         end;
      writeln('Локальный минимум:',a[n]);
           end.
2)
var
a: array[1..100] of integer;
b:array[1..100] of integer;
i,n,k: integer;
  begin
    writeln('Введите кол-во элементов массива');
    readln(n);
    writeln('Массив A:');
     for i:=1 to n do
       begin
         a[i]:= random(50)+1;
         write(a[i],' ' );
         b[i]:=a[i];
       end;
       writeln;
       writeln('Массив B:');
        for k:=1 to 2 do
          for i:=1 to n do
             write(b[i],' ');
     end.