program Sorevnovanie;war n, i, r:integer; a: array [1.. 100] of integer;beginwritelen
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]gt;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]gt;a[r]
then r:=i;
write ('Одолел соучастник под номером ', r);
end.
Может поэтому что она не верно написана, попробуй вот так
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.