Ответ:
Петличный микрофон? Если ты про этот
Ответ:
Помещается, если R≤A/2 и не помещается во всех остальных случаях.
DIM x(20) AS INTEGER
RESTORE
FOR i = 1 TO 20
READ x(i)
NEXT
s = 0
FOR i = 1 TO 20
IF x(i) > 0 THEN
s = s + x(i)
END IF
NEXT
PRINT "s="; s
END
DATA -3,9,-8,6,6,5,0,-7,9,18
DATA 4,-7,9,7,5,-9,-6,6,3,8
Var
i, n: integer;
begin
readln(n);
for i := 1 to n do
write(i,' ');
end.