Ответ: ГБАВ
Где больше &, тем меньше страниц, а где больше | тем больше. А где их одинаково смотри за скобкой
Граф прикреплен..........................
CLS
RANDOMIZE TIMER
DIM a(10)
FOR i=1 TO 10
a(i) = INT(RND * 21) - 10
NEXT i
n=0
FOR i=1 TO 10
IF a(i)>=-3 AND a(i)<=3 THEN n=n+1
NEXT i
PRINT n
END
Если взять массив от 1 до 20 то программа примерно выглядит так:
Program primer;
Var
A: array [1..20] of real;
i:integer;
Begin
For i:=1 to 20 do
Begin
a[i]:=i/2;
Write(a[i],'|');
End;
End.
П о р д а ы э к е н г ф й ц у я ч