Определить, вышел ли заданный спортсмен в следущий этап соревнований - 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.

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы