8_7. дан массив из 15 чисел. вывести элементы массива в указанном порядке: а1, а15, а2, а14, а3,13, и т.д. 8_8. дан массив. найти первый локальный минимум (локальный минимум – элемент, который меньше своих соседей).

Var a:array[1..15] of integer; i,n:integer;
begin
for i:= 1 to 15 do begin
a[i]:=random(50)-25;
write(a[i]:4);
end;
writeln;
n:=15;
for i:= 1 to 8 do begin
write(a[i]:4,a[n]:4);
n:= n -1;
end;end.