10 спортсменов-многоборцев принимают участие в соревнованиях по 5 видам спорта. По каждому виду спорта спортсмен набирает определенное количество очков. Спортсмену присва­ивается звание мастера, если он набрал в сумме не менее к очков. Сколько спортсменов получило звание мастера?

const n=10; m=5;var a:array[1..n,1..m+1] of integer;i,j,k,sp,s:integer;beginRandomize;writeln('  Результаты соревнований');for i:=1 to n do begin s:=0; for j:=1 to m do  begin  a[i,j]:=random(50)+50;  write(a[i,j]:4);  s:=s+a[i,j];  end;  a[i,m+1]:=s;  writeln(s:5); end;write('k='); readln(k);sp:=0;for i:=1 to n do if a[i,m+1]>=k then sp:=sp+1;writeln('sp=',sp);end.Пример:  Результаты соревнований  69  52  91  62  65  339  70  53  96  56  97  372  78  98  94  61  62  393  62  86  50  58  95  351  82  98  53  56  81  370  75  64  56  85  54  334  69  99  53  72  97  390  55  75  66  59  61  316  99  71  83  75  51  379  91  73  53  88  79  384k=350sp=7