begin
// 1
var a:= ReadArrInteger(10);
a.Count(p -> p < 0).Println;
// 2
var b := ArrRandom(10, -30, 50);
b.Println;
b.Where(p -> p.IsOdd).Min.Println
end.
В Паскале:
<span>z[1] = 'і'
</span><span>z[2] = 'н'
</span><span>z[3] = 'ф'
</span><span>z[4] = 'о'
</span><span><span>z[5] = </span>'р'
и так далее
Ответ: 'р'.
</span>
Var x1,y1,x2,y2,d1,d2:real;
begin
write ('X1 = ');
readln (x1);
write ('Y1 = ');
readln (y1);
write ('X2 = ');
readln (x2);
write ('Y2 = ');
readln (y2);
d1:=sqrt(sqr(x1)+sqr(y1));
d2:=sqrt(sqr(x2)+sqr(y2));
if d1<>d2 then write ('К началу координат ближе ');
if d1>d2 then writeln ('вторая точка') else
if d2>d1 then writeln ('первая точка') else
writeln ('Обе точки равноудалены друг от друга');
end.
<span>Цифровые вычислительные средства в составе бортового оборудования самолетов появились на рубеже 60-х годов и за относительно короткий срок практически полностью заменили используемые ранее аналоговые вычислители, поскольку обеспечивали более высокую точность решения задач, характеризовались большей универсальностью применения и обладали широкими логическими возможностями.</span>
<span>
</span>