+++++++++++++++++++++++++++++++++++++++++++++++++++
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>
Паскаль
program test;
uses crt;
const n=10;
var a,b:array [1..n] of integer;i:integer;
begin
clrscr;
randomize;
for i:=1 to n do
a[i]:= random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to n do
if i=n then b[n]:=a[1] else b[i]:=a[i+1];
for i:=1 to 10 do
write(b[i],' ');
readln;
end.
<h2>ОТМЕТЬ КАК ЛУЧШЕЕ</h2>
Ответ:1000000
Объяснение: Он не знал как объяснить богатым купцам Венеции то что в самого бедного китайца денег было тысячи-тысяч. И вот ему пришло на ум слово "милле" миллион. За что его так иногда и называли Марко Миллион.
Макроекономіка<span> – галузь економічної науки, що вивчає поведінку економіки як єдиного цілого з метою забезпечення умов сталого економічного зростання, повної зайнятості ресурсів, мінімізації рівня інфляції і рівноваги платіжного балансу. ( ответ А)</span>
