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
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.
Может потому что она не правильно написана, попробуй вот так