Размещено 6 лет назад по предмету
Информатика
от olja2018
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