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

program zz1;

var i, j, k, s, a, b:integer;

begin

write (' введите заданное k');

read (k);

for i:=1 to 10 do / / перебираем в цикле спортсменов

begin

for j:=1 to 5 do / / перебираем виды спорта

begin

writeln (' введите количество очков ', i,'-го спортсмена по ', j,'-му виду спорта');

read (a);

s:=s+a; / / получаем сумму очков для очередного спортсмена

end;

if s>k then begin writeln (i,'-ый спортсмен получил звание мастера '); b:=b + 1; end;

s:=0;

end;

write (' количество спортсменов получивших звание мастера = ', b); / / выводим ответ

end.