B:=5.8
A:=-7.9
Сначала мы присваиваем значение A:=5.8 и B:=-7.9
Потом мы присваиваем значение B к A и A к B
<span>n = int(input("N = "))
if n > 10<span>:
</span></span>----<span>s = <span>0
</span></span>----<span>for i in range(10,n,5)<span>:
</span>----</span>----<span>s += i
</span>--------<span>print(i,end=" ")
print("\nSuma = ",s)</span>
===== PascalABC.NET =====
begin
ReadSeqInteger('Введите 12 чисел', 12)
.Count(p -> p.InRange(-9, 9)).Println
end.
Var
i,n:integer;
s,min:real;a:array[1..10]of real;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
if a[i]<min then min:=a[i];
end;
writeln;
s:=s/n;
for i:=1 to 10 do if a[i]=min then a[i]:=s;
writeln('Среднее отрицательных:',s);
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
<span>end.</span>
(5;3) не входит, т. к. при x=5 программа завершается, а не запрашивает точку (5;3)