Var m,j,r,n,sum,sumI,k:integer;C,b:Array[1..15]of integer;sr:real;Beginfor r:=1 to 15 do beginC[r]:= random(20)-10; write(C[r]:4);if C[r] >0 then begin n := n +1;sum:= sum + C[r];end;if r mod 2 = 0 then begin k := k +1;sumI:= sumI + C[r];j:=j+1;b[j]:=C[r];end;end;writeln;writeln('Kоличество положительных',n:4);writeln('Cуммa положительных',sum:4);writeln('Cуммa элементов стоящих на четных местах',sumI:4);writeln('Cреднеарифметическое элементов стоящих на четных местах',sumI/k:4);foreach m in b dowrite(m:4);end.
A:=3 - вместо переменной а будем ставить число 3 b:=2+a - ставим вместо а число 3 и получим b=2+3=5, теперь вместо a будем ставить 3, а вместо b будем ставить число 5 a:=b*2*a - ставим справа в выражение вместо a число 3, а вместо b число 5, получим a=5*2*3=30 и это НОВОЕ значение переменной a! Теперь a=30, b=5 b:=2*a-b - ставим справа в выражение вместо a число 30, а вместо b число 5, получим b=2*30-5=60-5=55, и это НОВОЕ значение переменной b! ответ: b=55
