<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>№1</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var kp:=a.Where(t->t>0).Count;
var kn:=a.Where(t->t<0).Count;
Writeln('Положительных ',kp,', отрицательных ',kn);
if kp>kn then Writeln('Положитьельныъ больше')
else
if kn>kp then Writeln('Отрицательных больше')
else Writeln('Положительных и отрицательных поровну')
end.
<u>№2</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var (min,max):=(a.Min,a.Max);
Writeln('Минимум ',min,', максимум ',max);
if Abs(min)<Abs(max) then Writeln('Модуль минимума меньше')
else
if Abs(max)<Abs(min) then Writeln('Модуль максимума меньше')
else Writeln('Модули максимума и минимума равны')
end.
1.
Пока сверху свободно
Вверх
Пока справа свободно
закрасить вправо
Пока снизу свободно
закрасить вниз
Пока слева свободно
закрасить влево
Пока сверху свободно
закрасить верх
пока справа свободно
закрасить вправо
<span>(НЕ A ИЛИ В) = В</span><span>
(А ИЛИ С) И ( В ИЛИ С)
С И С = С
тогда
F = B и С
</span>