10 спортсменов-многоборцев принимают участие в соревнованиях по 5 спорта. по каждому виду спорта спортсмен набирает определенное количество очков. спортсмену присваивается звание мастера, если он набрал в сумме не менее к очков. сколько спортсменов получило звание мастера?
259
326
Ответы на вопрос:
Const n=10; m=5; var a: array[1..n,1..m+1] of integer; i,j,k,sp,s: integer; begin randomize; 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 384 k=350 sp=7
Популярно: Информатика
-
юра41702.10.2020 02:05
-
ПростоМиха24.05.2021 00:25
-
Александраlove102.04.2021 07:48
-
bilinia1629.03.2020 18:18
-
Millernata01.04.2022 17:20
-
lesikon1129.05.2020 15:47
-
lizadexx02.01.2021 21:58
-
yurkamail29.10.2020 01:30
-
CCAnuna30.03.2021 12:31
-
аня294302.11.2021 07:43