Начнем с того, что будем считать, что первое утверждение первого эксперта - правда. Тогда четвертый эксперт говорит нам о том, что 2 место будет у Италии. Тогда пятый эксперт вводит нас в полный конфуз, т.к оба его заявления - ложь. Следовательно нужно начать заново, и принять второе заявление первого критика как истину. Украина на 3 месте. Тогда по заявлению второго критика мы узнаем что германия - на 4 месте. Третий критик говорит нам о том, что Китай НЕ может стать первым. Пятый критик говорит, что Италия - 5я. Четвертый, что Россия - 1я. Следовательно, Китай - 2й. 1-Россия 2-Китай 3-Украина 4-Германия 5 -Италия
В той же папке, где будет программа, создаете два блокнота, называете input и output a:array[1..10000] of integer; i, k, min, imin:integer; begin assign(input,'input.txt'); reset(input); assign(output,'output.txt'); { если в тот же, то assign(input,'input.txt'); rewrite(output); rewrite(input);} for i:=1 to 10 do read(a[i]); min:=a[1]; for i:=1 to 10 do if min>a[i] then begin min:=a[i]; imin:=i; end; writeln; writeln(min,' ', imin); end. задание вписать в тот же файл делаю впервые, поэтому за правильность вывода не отвечаю.
1-Россия
2-Китай
3-Украина
4-Германия
5 -Италия