8_7. Дан массив из 15 чисел. Вывести элементы массива в указанном порядке: а1, а15, а2,...

Question

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

Answer 1

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.

Comments

спасибо)