Как то так, возможно будет ошибка, я не проверял, но это можешь сделать ты var index:byte; n:longint; max; begin index:=0; max:=-32000; repet readln(n); if max<n then begin index:=index+1; max:=n; end; until n<>0; writeln(n, ' ',index);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
