Program asd;
USES crt;
Const n=100;
Var A:array[1..n] of integer;
i,kp,ko:integer;
BEGIN
Writeln('Массив: ');
For i:=1 to n do
begin
A[i]:=-20+Random(40);
Write(A[i]:4);
end;
Writeln;
kp:=0;
ko:=0;
For i:=1 to n do
begin
If A[i]>0 then kp:=kp+1;
If A[i]<0 then ko:=ko+1;
end;
Writeln('Кол-во положительных элементов: ' ,kp);
Writeln('Кол-во отрицательных элементов: ' ,ko);
END.
Г) (x+y)/a1*a2/(x-y)
д) 1E4*alfa+(3*5+1)/5*beta
е) (1+x/(1*2)+y/(1*2*3))/(1+2/(3+x*y))
По горизонтали: 2. поведение, 4. действие, 6. единичное, 7. свойство, 9. множество, 10. объект
по вертикали: 1. состояние, 2. признаки, 3. информатика, 5. собственное, 8. общее
Var
A,B,C,M:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
Write('C = ');ReadLn(C);
if A+B > C then M:=A+B
else M:=C;
if A+C > B then WriteLn('max(A+B,C)-min(A+C,B) = ',M-B)
else WriteLn('max(A+B,C)-min(A+C,B) = ',M-A+C)
End.