Question

Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!В массиве хранится инНайдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!
В массиве хранится информация о баллах,
полученных спортсменом-десятиборцем в каждом из десяти видов спорта. Для выхода
в следующий этап соревнований общая сумма баллов должна превысить некоторое
известное значение. Определить вышел ли данный спортсмен в следующий этап
соревнований.const m=10;
var a:array[1..m] of byte;
i,k:byte;
s:integer;
begin writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do
begin
write(' ',i,'-й вид спорта:');
readln(a[i]);
end;
begin
s:=0;
s:=s+a[i];
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
end;\
if s>k then writeln('Спортсмен проходит в следующий тур')
else writeln('Спортсмен не проходит в следующий тур');
end.

Answer 1

Program test;
const m=4;
var a:array[1..m] of byte;
i,k:byte;s:integer;
begin
s:=0;
writeln('Введите информацию о баллах видов спорта');
for i:=1 to m do  
begin      
write(' ',i,'-й вид спорта:');   
readln(a[i]);          
s:=s+a[i];
end;
write('Введите общее количество баллов по 10 видам спорта:');
readln(k);
if s>k
then
writeln('Спортсмен проходит  в следующий тур')
else
writeln('Спортсмен не проходит в следующий тур');
end.