Ответ:
col_el = int (input ())
ls = list (map (int, input ().split (maxsplit = col_el)))
s = 0
for i in range (len (ls)):
if i + 1 < len (ls) and ls [i] > ls [i + 1]:
s = s + 1
print (s)
Объяснение:
Надо просто найти количество всех случаев где Коля может переставить два числа местами.
Pascal ABC
Первый вариант с вводом числа с клавы, второй с циклом For
1)
Var A:integer;
S:string;
Begin
Write('Сумма сдачи = ');Read(A);
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S);
End.
2)
Var
A:integer;
S:string;
Begin
For A:= 1 to 100 do
Begin
if (A>10)and(A<21) then S:= ' копеек'
else
Case A mod 10 of
1:S:=' копейка';
2..4:S:=' копейки';
0,5..9:S:=' копеек';
End;
WriteLn(A,S)
End
End.
1)выделить текст
2)нажатием правой кнопкой нажать копировать
3)открыть нужный файл нажать правую кнопку и нажать вставить
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.