Var
a: array [1..12] of integer;
i: integer;
begin
writeln('Начальный вид массива:');
for i := 1 to 12 do
begin
a[i] := -20 + random(41);
writeln('A[', i:2, ']=', a[i]:3);
end;
writeln('Конечный вид массива:');
for i := 1 to 12 do
begin
if a[i] < 0 then a[i] := -1;
writeln('A[', i:2, ']=', a[i]:3);
end;
readln
<span>end.</span>
Ответ:
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)
Объяснение:
Надо просто найти количество всех случаев где Коля может переставить два числа местами.
1 поколение
1946-1958
электронные лампы-диоды и триоды
2 поколение
1958-1964
полупроводниковые транзисторы
3 поколение
1964-1972
мис
4 поколение
1972 по наст. время
бис
I=6144 байт= 8*6144 бит
k= 6144 символов
i- вес одного символа
I=I/k = 8
N=2^i - алфавит
N=256
<span>это 5 континентов планеты</span>