Вот. Вообще всё было неправильно, кроме 1 строчки. Нельзя в условиях просто писать две переменные.
Объяснение:
m1,m2,m3= map(int,input("Введите массы трёх толстяков, разделённые пробелами. ").split())
if 94 > m1 or 94 > m2 or 94 > m3 or 727 < m1 or 727 < m2 or 727 <m3 :
print("Error")
elif m1 > m2 and m1 > m3:
print("m1 = ", m1)
elif m2 > m1 and m2 > m3:
print("m2 = ", m2)
elif m3 > m1 and m3 > m2:
print("m3 = ", m3)
else:
print("m2==m3==m1 = ", m1)
var a:array[1..1000] of integer;
n,m,i,j,k,jmx,x:integer;
begin
read(n);
for i:=1 to n do
read(a[i]);
m:=0;{количество отсортированных}
i:=1;{начало массива}
while i<n do {пока не конец - 1 }
begin
jmx:=1; {пусть это пока индекс максимума}
for j:=1 to n-m do{с начала до уже выставленного на место максимума}
if a[j]>a[jmx] then jmx:=j;{находим индекс самого макс.}
x:=a[jmx];{запомним значение}
for k:=jmx to n-m-1 do {сдвинем на него все не отсортированные элементы}
a[k]:=a[k+1];
a[n-m]:=x;{вставим очередной максимум на место}
m:=m+1; {увеличим количество отсортированных}
i:=i+1; {идем вперед}
end;
for i:=1 to n do
write(a[i]:4);
end.
Объяснение:
