Var x:real;
begin
x := -4;
while x <= 4 do begin
writeln('x=',x : 2 : 2,' y=', abs(x-2)+abs(x+1) : 2 : 2);
x := x + 0.5;
end;
readln; //задержка ввода
end.
Программа написана на Python 3.6
a = input().split() #Вводятся элементы через пробел
a = [float(i) for i in a]
a.append(min(a) - 1)
a.append(min(a))
iMax = a.index(max(a))
for i in range(len(a) - 1, iMax + 1, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax + 1] = int(input())
for i in range(len(a) - 1, iMax, -1):
a[i], a[i - 1] = a[i - 1], a[i - 2]
a[iMax] = int(input())
print(' '.join([str(i) for i in a]))
Это всё одно и тоже, потому что компьютерный специалист и программист это одно и тоже
а комплексы не знаю как это относится к другим
Три варианта, выбирайте, что вам больше по нраву
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)