Viendimensiju masīva apstrāde

4. Izstrādātais programmas fragments

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…