Question

Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 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.