Множества

[Avvakymova]

даны 30 целых чисел от 1 до 50.определить,сколько среди них чисел,первая цифра которых 2.Помогите пожалуцста!!!

[veniside]

count := 0;
for i := 1 to 30 do
  case (A[i]) of
    2, 20..29: inc(count);
  end;
//
writeLn('Count=', count);

[Plague]

если речь идет о множествах, а не о массивах тогда так:

  k:=0;
  if 2 in a then inc(k);
  for i:=20 to 29 do 
    if i in a then inc(k);
  writeln(k);

а еще бы нужно задать 30 чисел множества например случайно
полный текст программы:

var a: set of 1..50;
    m: array [1..50] of 1..50;
    i,j,x,y,t,k: byte;
begin
  a:=[];
  randomize;
  for i:=1 to 50 do m[i]:=i;
  for j:=1 to 100000 do 
    begin
      x:=random(50)+1;
      y:=random(50)+1;
      t:=m[x]; m[x]:=m[y]; m[y]:=t;
    end;
  
  for i:=1 to 30 do
    a+=[m[i]];
  
  k:=0;
  if 2 in a then inc(k);
  for i:=20 to 29 do 
    if i in a then inc(k);
  writeln(k);  
end.