Program Sorevnovanie; war n, i, r:integer; a: array [1.. 100] of integer; begin writelen...

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

Comments

Все, разобралась )

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.

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