При выполнении фрагмента программы операторы, составляющие тело цикла, выполнятся … раз: a: =1; while a< =100 do begin a: =a*2; end;

тело цикла, выполнятся 7 раз

Choosing a future profession is a very important step in everyone's life. Some school leavers hesitate for a long time, as it is difficult for them to decide, while others, on the contrary, make a firm decision earlier. In order to become what you want, you must first learn and get an education. If you like your future profession very much, then it will be interesting and not difficult to study.

As for me, I want to become a programmer. This profession attracted me when I was in elementary school. Then we started studying computer science, which became my favorite subject. I always listen very carefully to the teacher. I am interested in absolutely all topics on this subject, so I often ask a lot of additional questions in the lessons. At home, I have many different books: about the structure of the computer, about working with different programs, about the basics of programming, about breakdowns, about viruses, and others. In addition, I usually read additional literature on computer science in our school library or search for information that interests me on the Internet.

Объяснение:

Program asd;
Var A,C:array[1..2500] of integer;
i,n,s,ii:integer; 
sr:real;
BEGIN
Write('Введите n: '); Readln(n);
Writeln('Массив: '); 
For i:=1 to n do 
 begin 
 A[i]:=1+Random(9);
  Write(A[i]:2);  
 end;  
 Writeln;
  Writeln('Все элементы, которые меньше последнего числа в ряду: ');
For i:=1 to n do
 begin 
if A[i]<A[n] then Write(A[i]:2);
 end;  
Writeln(); 
 Writeln('Номер элементов, которые от 3 до 7.: ');  
  For i:=1 to n do
  begin 
 If  (A[i]>=3) and (A[i]<=7)   
 then 
 begin  
C[i]:=i;   Write(C[i],' ');  
 end;   
 end;
 END.