Question

Program Sorevnovanie; war n, i, r:integer; a: array [1.. 100] of integer; begin writelen ('Программа определения победителя в соревнованиях по броскам мяча в корзину. Выведите количество участников'] readln (n); for i:=1 to n do begin write ('Результат участника №', i, ':'); readln (a[i]); end; r:=1; for i:=2 to n do if a[i]>a[r] then r:=i; write ('Победил участник под номером ', r); Почему программа ABC NET пишет: "Встерчено 'var', а ожидалось begin

Answer 1

program Sorevnovanie;

var

n, i, r:integer;

a: array [1.. 100] of integer;

begin

writeln ('Программа определения победителя в соревнованиях по броскам мяча в корзину. Выведите количество участников');

readln (n);

for i:=1 to n do

begin

write ('Результат участника №', i, ':');

readln (a[i]);  

end;

r:=1;

for i:=2 to n do

if a[i]>a[r]

then r:=i;

write ('Победил участник под номером ', r);

end.

Может потому что она не правильно написана, попробуй вот так

Answer 2

The ABC NET program is indicating a syntax error because the code you provided is incomplete. It appears that the program is missing the keyword "begin" before the first line of code.

Here is the corrected version of the code:

Program Sorevnovanie; var n, i, r: integer; a: array [1.. 100] of integer; begin writeln('Программа определения победителя в соревнованиях по броскам мяча в корзину. Введите количество участников:'); readln(n); for i := 1 to n do begin write('Результат участника №', i, ':'); readln(a[i]);
end; r := 1; for i := 2 to n do if a[i] > a[r] then r := i; write('Победил участник под номером ', r); end.

This program prompts the user to input the number of participants, then reads in the results of each participant's throw. It then iterates through the array of results to find the index of the participant with the highest score, and outputs the index of the winning participant.