Человек сам решает, кем ему быть и как жить. Если он хочет быть здоровым, богатым, счастливым, то никто не сможет ему этого дать. Он сам должен к этому стремится.
Чтобы жить долго и счастливо - нужно, прежде всего, этого хотеть и идти уверенно к своей мечте, не расчитывая на других.
человек пугается или испуганный человек
Либо сливочное пиво либо тыквенный сок больше в ответ майл ру ничего не нашёл)
13 золотых, 11 серебряных, 9 бронзовых.
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>