Question

Определить победителя олимпиады по информатике,вводя по очереди с клавиатуры очки,набранные 10 участниками олимпиады

Answer 1

среда PascalABC
var n,i,k,max:integer; 
begin readln(max);
n:=1;
for i:=2 to 10 do begin
readln(k);
if k>max then begin max:=k; n:=i; end; end; //СТРОЧКА С ИСПРАВЛЕННОЙ ОШИБКОЙ
writeln(max); //макс балл
writeln(n); //номер участника
end.

теперь синтаксис правильный! еще я нашел ошибку у себя из-за которой программа выдавала минимальный балл и номер

Answer 2

Когда Вы приводите текст программы, он должен без каких-либо правок выполняться в соответствующей среде. Ваша программа действительно синтаксически неверно. Исправляйте, или ответ будет удалён.

Answer 3

исправил