Const n = 20; <span>var </span><span> arrA, arrC: array[1..n] of real; </span><span>i, j: byte; </span><span>sum: real;</span>
begin <span> randomize;</span><span> writeln('Array A:');</span><span> for i:=1 to n do begin</span><span> arrA[i] := random() * 10 - 5; </span><span> write(arrA[i]:6:2);</span><span> if i mod 10 = 0 then writeln;</span><span> end; </span>
<span> i := 2;</span><span> j := 0;</span><span> sum := 0; </span><span> while i <= n do begin </span><span> if arrA[i] > 0 then begin</span><span> j := j + 1; </span><span> arrC[j] := arrA[i]; </span><span> sum := sum + arrC[j] * arrC[j]; </span><span> end;</span><span> i := i + 2;</span><span> end;</span> <span> writeln('Array C:'); </span><span> for i:=1 to j do write(arrC[i]:6:2);</span><span> writeln; </span><span> writeln('sq.sum = ', sum:5:2); </span> <span>end.</span>