STEP1:
i:=2;
while(i<=20) do
begin
if (ms[i]<0) then
begin
MaxV:= ms[i];
idet:=i;
goto STEP2
end
else
i:=i+2;
end;
writeln('Apskataamajaa kopaa negatiivu elementu nav');
goto MENU;
STEP2…
Izmantojot esošo sagatavi, izstrādāt programmu, kas viendimensiju masīvā nosaka lielākā negatīvā elementa vērtību un indeksu, analizēt masīva elementus ar pāra indeksiem.