Определить, вышел ли заданный спортсмен в следущий этап соревнований - Turbo Pascal
Формулировка задачи:
Помогите пожалуйста решить задачу на тему массивы вот задача >>>>> В массиве храниться информация о балах полученых спортсменом десятиборцом в каждом из десити видов спорта.Для выхода в следущий этап соревнований общая сумма балов должна превысить некоторое известное значение .Определить вышел ли данный спортсмен в следущий этап соревнований >>>>>>> помогите пожалуйста
Решение задачи: «Определить, вышел ли заданный спортсмен в следущий этап соревнований»
textual
Листинг программы
Const n=10; Var A:array[1..n] of integer; i,s,m:integer; Begin For i:=1 to n do Begin A[i]:=random(51); write(A[i]:3); s:=s+A[i] End; writeln; write('Введите проходной балл: ');readln(m); writeln('Сумма баллов спортсмена = ',s); if s>m then writeln('Прошёл') else writeln('Не прошёл'); readln; End.