Изменим запись на более удобную для преобразований.
Var a: array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('Положительное и четное: ', a[i]);
end;
<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)
Объяснение:
Надо просто найти количество тех случаев где Коля может переставить местами два числа.
Var sum:real;
begin
for var i:=1 to 10 do sum:=sum+cos(i);
print ('s =', sum);
end.
Вариант Б это же проооосто!