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

8_8. Дан массив. Найти первый локальный минимум (локальный минимум - элемент, который меньше своих соседей).

Question

Информатика

Инна

30 января, 12:06

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

8_8. Дан массив. Найти первый локальный минимум (локальный минимум - элемент, который меньше своих соседей).

+2

Ответы (1)

Знаете ответ на вопрос?

Игорка · 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.