Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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]         begin
           writeln(Локальный минимум:,a[1]);
           exit;
         end;
     for i:=2 to n do
       if (a[i]         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.