Запишите, что будет напечатано в результате выполнения программы
const a: array[1..9] of integer = (8, -4,-6,3,7,0,4,-1,-5);
var i, k: integer;
begin
k := -1;
for i := 2 to 8 do
if ((k=-1) and (a[i] > a[i-1]) and (a[i] > a[i+1])) then k
:= i;
if (k = -1) then write ('Нет таких чисел')
else write(k-1,' ',k,' ',k+1);
end.
На этот вопрос еще никто не ответил. Напишите свой ответ или воспользуйтесь поиском:
Новые вопросы
Русский язык,
2 года назад
Биология,
7 лет назад