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.

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