Брагин и Лиходеев.
Объяснение:
1) Допустим, что преступление совершено Кургиным и Лиходеевым.
Тогда оба утверждения Кургина («Лиходеев не виновен. Преступление совершил Брагин») ложны ( В рассматриваемом случае истинны утверждения: "Лиходеев виновен. Брагин преступления не совершал"). Но, по условию, если Кургин преступник, то одно его утверждение должно быть ложно, а второе - истинно. Мы пришли к противоречию. Значит, наше предположение о виновности Кургина и Лиходеева неверно.
2) Допустим, что преступление совершено Брагиным и Лиходеевым.
Тогда в показаниях Брагин есть одно истинное утверждение («Это сделал Лиходеев») и одно ложное («Я не делал этого»). В показаниях Лиходеева также есть истинное утверждение («но и Кургин тут ни при чём») и ложное («Я не виноват»). Противоречий с условием задачи нет.
3) Допустим, что преступление совершено Кургиным и Брагиным.
Тогда оба утверждения Брагина («Я не делал этого. Это сделал Лиходеев») ложны ( В рассматриваемом случае истинны утверждения: "Лиходеев не виновен. Брагин преступление совершил"). Но, по условию, если Брагин преступник, то одно его утверждение должно быть ложно, а второе - истинно. Мы пришли к противоречию. Значит, наше предположение о виновности Кургина и Брагина неверно.
program laba;
{$APPTYPE CONSOLE}
uses
SysUtils,
windows;
var
a:array[1..15] of integer;
i,imax,x:integer;
begin
SetConsoleoutputCP(1251);
for i:=1 to 15 do
begin
writeln('Введите',i,'-й элемент');
readln(a[i]);
end;
imax:=1;
for i:=2 to 15 do
if a[i]>a[imax] then imax:=i;
x:=a[15];
writeln('максимальное число = ',a[imax],' его индекс= ',imax);
if imax=15 then write('Он последний, обмена нет');
else
begin
x:=a[imax];
a[imax]:=a[15];
a[15]:=x;
writeln('Обмен максимального и последнего:');
for i:=1 to 15 do
write(a[i]:6:3,' ');
end;
readln;
end.
Объяснение:
