1.
а=2*а-в=3*2-6=0
в=а+22=0+22=22
<u>Ответ- А=0 В=22</u>
2.
а=2*а-в=3*2-5=1
в= (-1)^2=1
<u>Ответ- А=1 В=1</u>
3.
с=а+в=3+6=9
а=2*в-с=6*2-9=3
в=а+с=3+9=12
<u>Ответ- А=3 В=12</u>
4.
y=x*x=2*2=4
y=y*y=4*4=16
x=y*x=16*2=32
s=x+y=32+16=48
<u>Ответ- x=32 y=16 s=48</u>
<em>После того как переменной присвоили новое значение считается переменная с этим значением, старое значение ни как не учитывается</em>
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>
<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4