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

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

Question

Информатика

Миронка

17 февраля, 07:15

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

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

+4

Ответы (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.