8_7. Дан массив из 15 чисел. Вывести элементы массива в указанном порядке: а1, а15, а2, а14, а3,13, и т.д.
8_8. Дан массив. Найти первый локальный минимум (локальный минимум – элемент, который меньше своих соседей).
Ответ
Автор - allangarsk
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.