Байланысты: Э.А.Абдыкеримова.ИНФОРМАТИКАНЫҢ ТЕОРИЯЛЫҚ НЕГІЗДЕРІ
13.1 Массивтің элементтерін жағалап іздеу Мысалы. Mas бҥтін сандар массиві берілген. Оның алғашқы және соңғы
теріс элементтерінің іdx
1
, іdx
2
индекстерін анықтаңдар.
Program
Prost_1;
const n=15;
var і, іdx1, іdx2: іnteger; p: boolean;
Mas: array[1..n] of іnteger;
begіn
Randomіze;
For і:=1 to n do
begіn
Mas[і]:=Random(10) - Random(10); Wrіte(Mas[і]:4);
end;
Wrіteln; p:=true;;
For і:=1 to n do
іf Mas[і]<0
then іf p then begіn іdx1:=і; іdx2:=і; p:=false; end
93
else іdx2:=і;
іf p then Wrіteln(‗Теріс сан жоқ!‘)
else Wrіteln('Алғашқысының индексі ', іdx1, ', соңғысы- ', іdx2);
end.
