larasayugay

01.01.2021 15:51 •  Информатика

Запишите, что будет напечатано в результате выполнения программы

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.