Скільки разів виконається цикл, якщо початкове значення Х=7? Whіle Х <= 10 do X := X+1;

4 рази.

Объяснение:

Перше значення 8, потім 8+1 = 9, і по аналогії 10, 11.

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end.