Народна назва нашої галактики - "Молочний(Чумацький) шлях"
На всякий случай сделала разрез на главном виде, вед слева сделала без разреза и с разрезом.
Удачи!
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>
1) 7+6=13
1)13×2=26
Отвєт :26 дітей.
Я тоже пойду с вами на каток.
У мальчиков домашнее задание то же, что и у девочек.